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ABSTRACT 


Some  finite-difference  formulae  to  approximate 
Laplace’s  equation  are  derived  in  this  thesis.  An 
evaluation  of  direct  methods  as  compared  to  iterative 
methods,  for  solving  the  systems  of  linear  algebraic 
equations  resulting  from  the  finite-difference 
approximations,  is  presented  for  three  examples  of 
Laplace's  equations. 
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CHAPTER  I 


INTRODUCTION 


1 . 1  Laplace’s  Equation 

A  function  u  =  u(x,y)  which  satisfies  the  Laplace 
equation 

(1.1.1)  V2u  =  =  0 

3x^ 


is  called  a  harmonic  function.  Harmonic  functions  have 
the  significant  property  of  being  analytic.  Furthermore, 
the  maximum  principle  for  elliptic  parital  differential 
equations  holds  true,  and  for  Laplace's  equation  takes 
the  following  form: 

Theorem  1.1.  The  maximum  and  minimum  values 
of  a  function  u(x3y)  harmonic  in  a  region  R  are 
attained  on  the  boundary  of  R  . 

A  proof  of  theorem  1.1  can  be  found,  for  example,  in 
Sobelev  [19]- 

The  general  boundary- value  problem  for  Laplace's 
equation  (see  Forsythe  and  Wasow  [8])  can  be  stated  as: 

Problem  1.1.  Let  R  be  a  simply- connected3 
bounded  region  whose  boundary  1  is  smooth.  Let  u ^ 


. 


■ 
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denote  the  inward  normal  derivative  of  u  on  Y  .  Let 
a (P)y  &(P)  ,  and  y (P)  ,  piecewise  sufficiently  smooth ,  be 
defined  on  r  .  Find  u  =  u(xty)  which  is  harmonic  on 
R  and  continuous  on  RuY  ,  subject  to  the  boundary  condition 


(1.1.2)  a (P)u(P)  +  §(P)u  (P)  +  y (P)  =  0  ,  P  on  Y  . 

n 


Due  to  the  fact  that  Laplace’s  equation  is  self-adjoint 

[8],  no  term  in  u  ,  where  u  denotes  the  tangential 

s  s 

derivative  of  u  along  T,  appears  in  the  boundary 
condition  (1.1.2). 

Perhaps  the  most  famous  boundary-value  problem  in 
mathematics  is  the  Dirichlet  problem  (the  first  boundary- 
value  problem),  for  which  a  =  -1  and  3  =  0  in  the 
boundary  condition  (1.1.2),  that  is, 

(1.1.3)  u(P)  =  y ( P )  ,  P  on  r  . 


Some  common  examples  of  Dirichlet ' s  problem  are:  the 
steady  temperature  distribution  throughout  a  two- 
dimensional  medium  with  a  given  temperature  distribution 
at  its  boundary  (Duff  and  Naylor  [7]);  the  flow  of  a 


3 


perfect  fluid  in  a  sharply-bent,  parallel-sided  channel 
(Thom  and  Apelt  [20]);  and  the  steady  state  of  a  stretched 
membrane  (Sagan  [17]). 

When  a  =  0  and  $  =  -1  ,  the  boundary  condition 
(1.1.2)  takes  the  form 

(1.1.4)  un(P)  =  a ( P )  ,  P  on  T  , 


and  the  problem  becomes  the  familiar  Neumann  problem  (the 
second  boundary-value  problem) .  Two  examples  of  the 
Neumann  problem  are:  fluid  flow  through  a  sharply-bent 
channel  (Collatz  [4]);  and  Laplace’s  equation  in  a  circle 
(Fox  [9]).  Note  that  if  the  Neumann  problem  has  a 
solution,  then  it  has  an  infinite  number  of  solutions, 
any  two  of  which  differ  only  by  an  additive  constant 
(see,  for  example,  Greenspan  [11]). 

If  a  and  3  are  different  from  zero  for  all  P 
on  T  ;  that  is , 

(1.1.5)  a ( P )u ( P )  +  3(P)un(P)  =  a(P )  ,  a, 3^0  ,  P  on  f  , 


then  Problem  1.1  is  called  the  third  boundary- value  problem. 


' 

■ 
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Mixed  boundary-value  problems  occur  when  different 
ones  of  the  boundary  conditions  (1.1.3),  (1.1.4)  and 
(1.1.5)  hold  on  different  arcs  of  the  boundary  r 
(i.e.,  a  or  $  are  zero  on  segments  of  r  but  not 
on  all  of  r  ) .  Most  free-boundary  problems  (see,  for 
example,  Charmonman  [2]  or  [3])  in  which  the  position 
of  the  boundary  r  is  not  initially  known  are  mixed 
boundary- value  problems. 

1 . 2  Purpose  of  the  Study 

For  solving  Problem  1.1  numerically,  the  region  R 
is  first  superimposed  by  a  network  of  meshes  (which  for 
simplicity  are  assumed  to  be  square)  as  shown  in 
Figure  1.1;  and,  the  value  of  u  is  then  ascertained  at 


Figure  1.1  Grid  System 


.  . 
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the  gridpoints  in  the  interior  of  R  by  the  method  of 
finite-differences.  In  deriving  finite-difference 
approximations,  it  is  assumed  that  the  function  u(x,y) 
at  a  grid  point  0  (Figure  1.1)  in  the  interior  of  R 
possesses  a  Taylor’s  series  expansion  with  a  sufficiently 
large  radius  of  convergence.  By  taking  linear  combinations 
of  the  truncated  Taylor’s  series  of  points  neighbouring 
0  (points  1,2, 3j  and  4,  say)  about  the  point  0,  an 
expression  approximating  Laplace's  equation  at  the  point 
0  can  be  found.  The  most  difficulty  will  be  encountered 
when  deriving  finite-difference  approximations  to  Laplace's 
equation  at  gridpoints  near  the  boundary  (point  B  , 

Figure  1.1)  especially  if  the  boundary  conditions  are  not 
of  the  Dirichlet  type. 

Problem  1.1  is  therefore  reduced  to  that  of  solving 
a  system  of  linear  algebraic  equations  where  the  unknowns 
correspond  to  the  values  of  u  at  the  gridpoints  in  the 
region  R  .  Since  the  total  number  of  gridpoints  (and 
hence  the  number  of  equations)  is  usually  quite  large, 
of  the  order  of  hundreds,  iterative  methods  such  as  the 
point-Jacobi  and  the  point-Gauss-Seidel  methods  are  most 
often  implemented  in  solving  the  system.  To  speed  up 
the  rate  of  convergence,  variations  of  these  two  methods 
(such  as  the  line-Jacobi  method,  the  line-Gauss-Seidel 
method,  the  alternating-direction  methods,  and  the  method 


■r 

* 

. 
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of  successive  over- relaxation)  are  often  used.  Comparative 
studies  of  these  methods  can  be  found  in  Forsythe  and 
Wasow  [8],  in  Fox  [10],  and  in  Varga  [21]. 

The  system  of  equations  can  also  be  solved  by  direct 
methods  such  as  Gaussian  elimination  (see  Ralston  [ 1 6 ] ) ; 
however,  since  the  system  is  usually  large,  it  is 
anticipated  that  rounding  errors  will  limit  the  accuracy 
of  the  solution.  Nevertheless,  it  is  possible  that  direct 
methods  may  be  sufficiently  accurate  and  faster  than 
iterative  methods  for  some  problems. 

The  purpose  of  this  study  is  to  investigate  the  use 
of  direct  methods  in  solving  Laplace's  equation.  Finite- 
difference  formulae  with  smaller  truncation  error  are 
used  to  reduce  the  size  of  the  linear  systems. 

Comparisons  are  made  between  direct  methods  and  iterative 
methods  in  terms  of  computer  time  and  accuracy. 


CHAPTER  II 


FINITE-DIFFERENCE  APPROXIMATIONS 


2 . 1  Notation  and  Basic  Concepts 

Since  the  functions  which  are  harmonic  in  a  region 
are  analytic  there,  the  following  theorem  on  expansion 
by  Taylor's  series  (Knopp  [13])  is  of  consequence  in 
deriving  finite-difference  formulae: 


in  a 
Then 
form 


Theorem  2.1. 
region  R  and  let 
there  is  always  one 


Let 


and 


f(z)  he  a  function  analytic 
he  an  interior  point  of  R  . 
only  one  power  series  of  the 


(2.1.1) 


l 

n=0 


(  z-z  ) 
n ! 


n 


f(n) (z0) 


which  converges  for  a  certain  neighborhood  of  z g  and 
represents  the  function  f(z)  in  that  neighborhood . 

The  series  converges  at  least  in  the  largest  circle 
about  the  center  z ^  which  encloses  only  points  of  R 
and  the  exact  radius  of  convergence  of  the  series  is 
the  largest  circle  about  zQ  as  center  in  which  f(z) 
is  everywhere  defined  or  definable  as  a  differentiable 
function . 


.  ■ 
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A  convenient  method  of  deriving  formulae  for 
approximating  Laplace’s  equation  is  that  due  to  Bickley 
[1].  His  notation,  which  is  also  used  by  Thom  and 
Apelt  [20],  is  employed  throughout  this  chapter. 

Let  u  =  u(x,y)  be  harmonic  in  a  region  R  with 
boundary  r  .  Superimpose  the  xy-plane  by  a  square 
grid-system  with  mesh  length  h  as  in  Figure  1.1.  Let 
the  coordinates  of  a  typical  point  0  (Figure  1.1)  be 
(x,y)  ,  so  that  the  coordinates  of  the  point  1,  for  example, 

are  (x+h,y)  . 

If  we  introduce  the  symbolic  operators 


(2.1.2) 


K 


d_ 

dX 


and 


n 


then  a  Taylor's  series’  expansion  of  u  at  the  points  1 
and  2,  for  example,  about  the  point  0  can  be  expressed  as 


(2.1.3) 


u =  u(  x+h ,y  ) 


3 


and 
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(2.1.4) 


u  2  =  u ( x ,y+h ) 


» 


respective ly . 


Furthermore,  since 


V2 *u 


0  ,  the  equalities 


(2.1.5) 


^* 1nJ'v2u  =  o 


i  ,  j  =  0,1,2,.  .  . 


hold  true  for  all  points  in  the  region  R  . 

2 . 2  The  Dirichlet  Problem 

4 

2.2.1  Approximations  of  Q(h  )  Suppose  that  the 
circle  of  radius  h  and  .center  0  (Figure  1.1)  is  contained 
in  the  region  R  .  Then  it  follows  from  Theorem  2.1  that 
the  circle  of  convergence  of  the  Taylor’s  series’  expansion 
of  u  about  the  point  0  contains  the  points  1,2,3  and  4. 
The  equation 

l  u.  =  ( eh^  +  ehn  +  e-h^  +  e'hn)u0 

i=l  1 


(2.2.1)  =  2(cosh  h£  +  cosh  hn)uQ 


=  {4  +  h2U2+n2) 


^T(54+nlj)  +  . . .  }u 


0 


. 
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is  therefore  a  valid  one.  For  Laplace’s  equation,  however, 
(2.1.5)  holds  true,  so  that  equation  (2.2.1)  reduces  to 


(2.2.2) 


u 


=  (4  - 


i=l 


h  r2  2 

v  5  n 


+  .  .  .  )u 


0 


We  have  thus  proved 


Theorem  2,2. 
If  the  circle  of  radius 
contained  in  the  region 


Let  u  =  u(x>g)  he  harmonic  in  R  . 
h  and  center  0  (Figure  1.1)  is 
R  ,  then 


(2.2.3) 


4u  0  =  u  i 


u2  +  u3  + 


u  4  +  0  ( h  ) 


Equation  (2.2.3)  is  commonly  called  the  five-point  formula. 

If  the  boundary  T  for  the  Dirichlet  problem  is  a 
rectangle,  the  five-point  formula  can  be  used  to 
approximate  Laplace’s  equation  at  all  interior  gridpoints 
of  R  .  If  the  boundary  r  is  a  curve,  however,  different 
formulae  must  be  used  at  points  near  the  boundary 
(e.g.,  point  B  ,  Figure  1.1).  Some  irregular-star  formulae 
to  approximate  Laplace’s  equation  at  such  points  are  given 
in  Fox  [10],  for  example,  but  these  have  a  truncation  error 
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3  4 

of  0(h)  .  Some  irregular-star  formulae  of  0(h  )  are 

now  derived. 

Let  h  be  sufficiently  small  so  that  at  least  two 
of  the  points  adjacent  to  B  (points  1,2,3  and  4  are 
adjacent  to  0  in  Figure  1.1)  are  contained  in  R  .  Then 
for  the  typical  case  shown  in  Figure  2.1,  where  A-^h 
and  A^h  ,  0  <  A-^,A^  <  1  ,  denote  the  mesh  distances  from 
points  1  and  4,  respectively,  we  have 

Theorem  2.3.  Let  u  =  u(x,y)  be  harmonic  in 
the  region  R  with  curved  boundary  V  .  If  u  has  a 
Taylor’s  series’  expansion  about  the  point  B  (Figure  2.1) 
with  circles  of  convergence  C  of  radius  at  least  2h ,  then 


{\1(3-\4)  +  X4(3-X1) }ub 


x  4-i  xri 

~  XlX4{X4+2  u5  +  X 2+2  U6 


(2.2.4) 


+ 


2[ 


2- X 


1  +  X 


4 

4 


*-h  , 

ITxJ  us] 


+  61 


u4 

X4(X4+l)(X4+2) 


u 


1 


]} 


+  0(h4)  . 


X1(X  +1) (X  +2) 
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Figure  2.1 


Irregular-Star  of 


0(h  j  -  Positive  Slope 


Proof:  Expanding  u^  u^ ,  u^  a  u^3  u^  and  u^  by 

Taylor's  series  about  the  point  B  ,  we  obtain 


(2.2.5) 


X1h^ 

ul  =  e  uB 


2,  2 


3.3 


X  -l  h  p  X-,h  p  h 

{1  +  \±h^  +  r  +  -Jj—  6  >uB  +  0(h  )  , 


(2.2.6) 


-h£ 

u0  =  e  uD 
o 


=  {1  -  h?  +  ly  62  -  1^-  ^3>ub  +  0(h4)  , 


■ 
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(2.2.7) 


u, 


=  «-2h5 


u 


B 


=  (1  -  2h£  + 


2! 


£2  - 


8h3 

3! 


£3}u 


B 


O(h^) 


(2.2.8) 


u4  =  e 


-A^hn 


u 


B 


=  {1  -  Ai.hn  - 


,  2.  2 

A^h 

~TT 


c2  - 


A^h3 

~TT 


n3  }u 


B 


0(h4) 


(2.2.9) 


u, 


hri 
=  e  u 


B 


=  U  +  hn  - 


2  ! 


+  *L- 
*  3! 


n3  >u 


B 


0(hi|) 


and 


(2.2.10) 


2hn 

u5  =  e  uB 


=  {1  +  2hn  - 


4h^ 

2! 


+ 


8h 


O3  }uB  +  0 (h^ ) 


The  equality 


n 


2 


=  -£ 


2 


was  used  in  equations  (2.2.8),  (2.2.9)  and  (2.2.10).  We 
wish  to  obtain  a  linear  combination  of  the  above  six 
equations  (2.2.5)  -  (2.2.10)  which  is  independent  of  the 


' 


2  3  3 

terms  containing  £,  n,  S  ,  £  and  n  . 

Multiplying  equations  (2.2.5)  -  (2.2.10)  by  the 

constants  c^,  c^,  c^,  c^,  c^  and  c^-,  respectively;  adding 

the  resulting  equations;  and  setting  the  coefficients  of 

2  2  3 

the  terms  containing  5  n ,  £  ,  n  and  n  to  zero, 

j 

that  is. 


(2.2.11) 


we  obtain 


(2.2.12) 


u  u  h 

y  c.u.  =un  y  c.  +  o(h  )  . 

.  L  li  B  .  L  l 

1=1  1=1 


The  system  of  equations  (2.2.11)  has  one  degree  of  freedom. 
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so  that  inf initely-many  solutions  exist.  One  such  solution  is 


C1  "  6^4  (  A^  +  l )  (  A4  +  2  ) 
c4  =  6xi(X1+1)(X1+2) 
c  3  =  -2X1(X1-2)(X1+2)X4(X4  +  1) (X^  +  2) 

(2.2.13) 

c  2  =  -2X4(X4-2)(X1|+2)A1(X1+l)(X1+2) 

c6  =  X1(X1-l)(X1+l)X4(X4+l)(X4+2) 

=  X4(X4-1)(X4+1)X1  (X1+l)(X1+2)  . 

Substituting  (2.2.13)  into  (2.2.12)  and  dividing  the 
resulting  equation  by  A^  (  X-^+l )  (  A-^+2  ) A2  (  A^  +  l )  (  A2  +  2  )  > 
we  obtain  the  irregular-star  formula  (2.2.4). 

Q  .  E  .  D  . 

When  the  point  4  is  the  only  point  adjacent  to  B 
and  exterior  to  R  (i.e.,  A^  =  1  in  Figure  2.1),  then 
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the  irregular-star  formula  (2.2.4)  yields 


(  V3)ub 


X4-l  2(2-X4) 

X^+2  u5  +  1+X4  u2 


(2.2.14) 


6u4 

+  U1  +  u3}  +  (X'4  +  l)U4  +  2) 


+  0(h4)  . 


Similarly,  for  =  1  in  Figure  2.1,  we  have 


Xj-1  2(2-X1) 

(A1+3)Ug  =  A-y  xyp?  u6  +  1+A^  u3 


(2.2.15) 


6u^ 

+  U4  +  u2>  +  ( Ax+1) ( X±+2) 


+  0(h4)  . 


Note  that  for  \1  =  L  =  1  ,  formula  (2.2.4)  reduces  to  the 
five-point  formula  (2.2.3). 
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By  proper  labelling  of  the  gridpoints,  the  irregular- 
star  formula  (2.2.4)  can  be  used  to  approximate  Laplace’s 
equation  at  all  interior  gridpoints  of  R  .  For  example, 
if  the  boundary  r  has  a  negative  slope  and  the  region  R 
is  below  T  ,  then  the  points  should  be  labelled  as  in 
Figure  2.2. 


Irregular-Star 


of 


h 

0(h4) 


Negative  Slope 


Figure  2 . 2 
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2.2.2  Approximations  of  Q(h^) 

Theorem  2.4.  Let  u  =  u(x3y)  he  harmonic  in  a 
region  R  with  boundary  T  .  Let  the  circle  C  with 
centre  0  and  radius  h/2  (Figure  1.1)  be  contained  in  R  . 
Then 


20un  =  4  (u ^+u  +u „  +  u  .)  +  u 0+u „+u n+u n 
0  12  3  4  bo78 


(2.2.16) 


+  0(h6 ) 


Proof :  Since  C  is  contained  in  R  ,  by 

Theorem  2.1,  u^  ,u2 , . • ° jUg  have  Taylor’s  series’ 
expansions  about  the  point  0.  Thus 
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4 


i  =  l 


u .  + 
1 


8 


I 

1  =  5 


u. 

i 


=  1)  {eh^  +  ehr>  +  e-h?  +  e-hrl}u0 


+  {eh(S+n)  +  eh("5+rl)  +  e-h(S+n)  +  eh(5-n)}u0 


=  8{cosh  hE,  +  cosh  hrilu^ 


(2.2.17) 


+  4{cosh  hE,  •  cosh  hrilu^ 


=  4{4  +  h2V2  + 


2h 

~n 


•(v4-2^2n2)  + 


^?r(56+n6)  +. . .  )u 


o 


,  01_2„2  ,  4h\„4lJir2  2,  ,  4h6,r6inirr4  2 
+  {4  +  2h  v  +  — Jjj(v  +4£  n  )  +  -gj(c  +  155  n 


2  4  6 

+  155  n  +n  )  + . . .  }u 


0 
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On  substituting  equations  (2.1.5)  in  (2.2.17),  we  obtain 
the  nine-point  formula  (2.2.16). 

Q.E. D. 

The  nine-point  formula  can  be  used  to  approximate 
Laplace's  equation  for  all  interior  gridpoints  when  the 
boundary  r  is  a  rectangle  and  for  points  not  near  the 
boundary  when  the  boundary  F  is  curved.  For  points 
near  a  curved  boundary,  irregular-star  formulae  of  0(h  ) 
can  be  derived. 


Let 

h 

be  sufficiently  small  so  that 

the 

points 

2,  3,  6, 

O 

i — 1 

11,  8  and  9  in  Figure  2.3  are 

all 

in  the 

interior 

of 

R  .  If  A^h,  A^h,  A^h  and 

A?h 

denote 

the  distances  from  point  B  to  the  points  1,  4,  5  and 
7,  respectively,  then  one  irregular-star  formula  of 
O(h^)  is  given  in  the  following  theorem: 


Figure  2.3  Irregular-Star  of  O(h^) 
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Theorem  2 . 5  Let  u  =  u(x3y)  be  harmonic  in 
the  region  R  with  curved  boundary  r  .  If  u  has  a 
Taylor’s  series’  expansion  about  the  point  B  (Figure  2.3) 
with  circle  of  convergence  of  radius  at  least  h/T 3 
then 


(2.2.18) 


n  n  6 

Ug  J  c £  —  £  c  ru  .  +  0  ( h  )  j 

i=l  i=l 


where 


c j  —  1 2X A 4+1 ) ( X 4  + 2 )  , 


c4  =  12X1  (X 2  +  l)  (\1+2)  3 


(2.2.19) 


-12(15X4  +  3X21+6X1-14)c1c4 

(3\2+6\  r  +  l)k, 

DO  D 


-12  ( 15X 1+3X24  +  6X4-14)  c  c  4 
(3X2+6X?+l)k7 


y 


' 
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=  -k14°1°4  -  3X5(X5+1)2°5  ~  (S\7-l)k?c?  y 


°9  ~k14al°4  ~  2k7(^?  +  1)  G?  ~  ( 2X 5~1 )k 5° 5  j 


°  10  'X  X  4  ^  X  4  + 4  ^  ^  X  4  ~  4  ^  G  4  +  3k  0>G  5  3 


G 2 1  ~  2  X  j  ( X 2+ 1 ) ( X j- 1 ) o i  +  2k  7O  7 


°2  ~k14°la4  ~  ^ x 4 ( x 4+ % ) ( x 4~ % ) c 4  ~  (3Xy-l)k^a^ 


(2.2.19) 


- ( X 5  + 1 ) ( A ^  +  2 ) ( 3  A ^  +  X ^  +  6 ) c ^  y 


k14°lC4  ~  4X1 (Xi+2) (^1-2^g1 


(ZXr-Dk.c  . 
0  0  0 


(X?+l) (X?+2) (3X?+X?+6) o?  y 


'  £  =  4  k  -  .G  -  O  +  4X  r(  X  r  + 2  )  (  3X  r+X  r  +  1  )  O  [- 
6  1414  oo  oo  o 


+  4  X  ? ( X  y  +  2 ) ( 3  X  7  +  X  7+ 1 ) o  7 


3 
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with 


k5  =  X5(X5+1) (X5+2)  ’ 


(2.2.20) 


k 


7 


X ?(\?+l) (\?+2)  , 


k14  ~  3X1  +  SX4  ~  1 


Proof:  Since  the  proof  of  Theorem  2.5  is 


similar  to  the  proof  of  Theorem  2.3,  some  of  the  details 
are  omitted. 

Expansion  of  , . . . >u11  in  Figure  2.3  by 

Taylor’s  series  about  the  point  B  ,  and  truncation  after 
the  fifth-order  terms,  yields  eleven  equations  similar 
to  equations  (2.2.5)  -  (2.2.10)  of  Theorem  2.3.  Some  of 
the  terms  of  order  less  than  six  are  eliminated  by  making 
use  of  the  equalities  (2.1.5);  that  is, 


(2.2.21) 


1  =  0,1 

i  =  0  . 


j  =  0 
j=l 


. 
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On  multiplying  u  ,u2  }  .  .  .  , and  their  expansions  by 
CpC^c^  ,  respectively,  and  adding  the  eleven  equations 
together,  we  obtain,  on  setting  the  coefficients  corres¬ 
ponding  to  terms  of  order  less  than  six  to  zero,  the 
irregular-star  formula  (2.2.18). 

Forcing  the  coefficients  of  the  terms  of  order  less 
than  six  to  be  zero  is  equivalent  to  solving  the  system  of 

equations  (2.2.22),  where  rows  1,2,..., 10  correspond  to 

2  8  4  5  8  5 

the  terms  containing  £,  E,  ,  E,  ,  E,  ,  E,  ,  n,  n  ,  n  ,  E,  n  and 

"3 

E,  r\  ,  respectively.  As  in  (2.2.11),  the  system  of  equations 
(2.2.22)  has  one  degree  of  freedom  and  thus  inf initely-many 
solutions.  One  solution  is  given  by  (2.2.19). 

Q .  E  .  D  . 

The  irregular-star  formula  (2.2.18)  of  0(h  )  can  be 

used  to  approximate  Laplace’s  equation  at  all  interior 

gridpoints  of  a  region.  Furthermore,  the  coefficients 

(2.2.19)  have  the  property  of  symmetry  as  do  the  coefficients 

of  the  irregular-star  formula  (2.2.4)  of  O(h^)  .  However, 

formula  (2.2.18)  does  not  reduce  to  the  nine-point  formula 

(2.2.16)  for  A1  =  =  1  .  Another  disadvantage 

of  the  irregular-star  formula  (2.2.18)  is  that  it  requires 

too  many  multiplications,  at  least  seventy,  at  each 

gridpoint.  Therefore,  computations  might  be  faster  and  more 

accurate  if  the  interval  size  h  is  decreased  near  a  curved 

3  4 

boundary  and  lower  order  formulae,  of  0(hJ)  or  0(h  )  , 
applied . 
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2.2.3  Higher-Order  Approximations  Higher-order 

p 

formulae  to  approximate  Laplace’s  equation,  V  u  =  0  , 

can  be  derived  by  the  same  method  as  were  the  five-point 

1  2 

and  the  nine-point  formulae.  One  such  formula  of  0(h) 
taken  from  Thom  and  Apelt  [20]  is 


12  20  24 

7548un  =  780  l  u.  +512  £  u.  +  83  l  u 

i=9  i=13  1  i=21 


(2.2.23) 


+  0(h12)  , 


where  the  points  0 , 9 , 10  ,  . . .  ,  24  are  labelled  as  in  Figure  1.1. 

Higher-order  formulae  have  an  advantage  over  lower- 

4  6 

order  formulae,  of  0(h  )  of  0(h  )  ,  in  that  a  larger 
interval-size  h  ,  and  thus  a  fewer  number  of  gridpoints, 
can  be  used  to  achieve  the  same  accuracy.  This  advantage 
is  especially  significant  when  solving  Laplace’s  equation 
in  a  large  region  by  direct  methods  on  a  computer,  where 
memory  storage  is  limited. 

However,  since  there  is  a  large  spread  of  points  in 
higher-order  formulae  (see  Figure  1.1),  different  formulae 
must  be  used  at  points  near  the  boundary,  even  if  the 
boundary  is  a  rectangle.  Special  formulae  of  the  same 
order  can  be  derived  for  these  points,  but  these  are  no 


' 
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longer  symmetric  about  the  point  0,  so  that  the  coefficients 
become  cumbersome  and  the  formulae  inconvenient  to  use.  An 
alternative  is  to  decrease  the  interval-size  near  the 
boundary  and  use  lower-order  formulae. 

2 . 3  The  Neumann  Problem 

For  the  Neumann  problem,  formulae  (2.2.3),  (2.2.16),  or 
(2.2.23)  can  be  used  to  approximate  Laplace’s  equation  for 
points  not  near  the  boundary.  For  points  near  the  boundary, 
different  formulae  which  incorporate  the  Neumann  boundary 
condition  (1.1.4)  must  be  derived. 

2.3.1  Normal-Gradient  Specified  Along  a  Straight  Line 

Theorem  2.6.  Let  u  =  u(x3y)  be  harmonic  in  a 

region  R  with  boundary  T  .  Let  the  lower  part  of  the 

boundary  T  be  a  straight  line  L  parallel  to  the  x-axis 

on  which  u  is  harmonic .  Assume  that  u  has  a  Taylor's 

series’  expansion  about  a  boundary  point  0  (Figure  2.4) 

with  radius  of  convergence  of  at  least  h  ,  and  that , 
du 

— —  =  y(x)  on  L  .  Then  an  approximation  to  Laplace’s 

°y 

equation  at  the  point  0  is  given  by 


(2.3.1)  4u q  =  u^  +  2u^  +  u ^ 


2hy(x)  +  —  y"(x)  +  O(h^)  . 
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Proof : 


Expanding  u^,  u^,  u^ 


by  Taylor’s 


series’  about  the  point  0,  we  obtain 


u 


1 


+ 


(e^  +  e  ^ )uQ  =  2(cosh£)uQ 


(2.3.2) 


=  (2  +  h2£2)uQ  +  0(h4)  , 


and 


2u2  =  2enuQ 


(2.3.3) 


=  (2  +  2hn  +  h2n2  +  ~  n3)u0  +  0(h4) 


2 

=  2uq  +  2hy ( x )  -  h252u0  -  y"(x)  +  0(h4) 


In  (2.3.3),  we  have  used  the  facts  that 


nuQ  =  y  ( x ) 


2 

n  uQ 


y 


y 


. 
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and 


n^uQ  =  -£2nu0  =  -£2y(x)  =  y"(x)  . 

Adding  equations  (2.3.2)  and  (2.3.3),  we  obtain  (2.3.1). 

Q.E.D. 

Corollary  2.1.  Under  the  assumptions  of  Theorem 
2,6  with  y(x)  =  0  on  L  ,  an  approximation  to  Laplace's 
equation  at  the  boundary  point  0  (Figure  2,4)  is  given  by 

(2.3.4)  4u o  =  u^  +  2u £  +  u^  +  O(h^)  . 


Figure  2.4  Normal-Gradient  Specified  Along 


a  Straight  Line 
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Formula  (2.3.4)  is  equivalent  to  a  five-point  formula 
(2.2.3)  if  it  is  assumed  that  the  solution  u  is  reflected 
about  the  line  L  .  For  this  reason,  formula  (2.3.4),  is 
sometimes  known  as  the  mirror  image. 

If  u  is  not  harmonic  on  L  ,  then  (2.3.1)  is  not  a 
valid  formula.  A  formula  which  is  free  of  this  restriction 
is  given  by 

Theorem  2 . 7  Let  u  =  u(x,y)  be  harmonic  in  a 

region  R  with  boundary  T  .  Let  the  lower  part  of  the 

boundary  T  be  a  straight  line  L  parallel  to  the  x-axis. 

Assume  that  u  has  a  Taylor’s  series’  expansion  about  the 

boundary  point  0  (Figure  2.4)  with  radius  of  convergence 

du 

of  at  least  3h  ,  and  that ,  =  y(x)  on  L  .  Then  an 

approximation  to  Laplace’s  equation  at  the  point  0  is 
given  by 

(2.3.5)  HuQ  =  18u2  -  9u?  +  2uq  -  6hy(x)  +  0(h4)  . 

Proof:  Expanding  u2 ,  u^  ,  and  u^  by  Taylor's 


series  about  the  point  0,  we  obtain 


' 
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I81I2  -  9u rj  +  2ug  =  (lSe1^1  -  9 e^1"1  +  2e^r')uQ 


=  { 1 8  ( 1  +  hri  + 


+ 


) 


(2.3.6) 


-  9(1  +  2hn  + 


+ 


3! 


) 


+  2(1  +  3hn  + 


9h‘ 


TV 


27h- 

3! 


)  >u 


o 


+  ooV) 


=  {11  +  6hr*i)uQ  +  0(hV  . 


Substituting 


nuQ  =  y ( x ) 


in  (2.3.6),  we  obtain  formula  (2.3.5). 


Q. E . D . 
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The  same  methods  can  be  used  to  derive  higher-order 
approximations  to  Laplace’s  equation  on  boundary  points 
where  the  boundary  is  a  straight  line  and  the  normal- 
gradient  is  specified.  Approximations  of  O(h^)  are  thus 
stated  without  proof. 

Theorem  2 . 8  Let  all  the  conditions  of  Theorem  2.6 
be  satisfied,  except  now  the  radius  of  convergence  for  the 
Taylor’s  series'  expansion  about  the  boundary  point  0 
(Figure  2.4)  must  be  at  least  h/2~  .  Then  an  approximation 
to  Laplace' s  equation  at  the  point  0  is  given  by 

10un  =  2u -  +  4un  +  2u 7  +  u c  +  u c 
0  1  2  3  5  6 

(2.3.7)  -  6hy(x)  -  jo  y(4) (x) 


+  0(h6)  . 

Corollary  2.2.  Under  the  assumptions  of  Theorem 
2.8  with  y(x)  =  0  on  L  ,  the  'mirror-image  ’  approximation 
to  Laplace’s  equation  at  the  point  0  is  given  by 


' 
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(2.3*8)  10u  q  —  2u  j  +  4u  ^  +  2^3  +  ^5  +  ^  q  +  0  ( h.  )  . 

Theorem  2.9.  Let  all  the  conditions  of  Theorem 
2.7  be  satisfiedj  except  now  the  radius  of  convergence 
for  the  Taylor's  series'  expansion  about  the  boundary 
point  0  (Figure  2.4)  must  be  at  least  5h  .  Then  an 
approximation  to  Laplace's  equation  at  the  point  0  is 
given  by 


137Uq  =  300u g  -  300u?  +  200Uq  -  7 5u g  +  12u jq 


(2.3.9) 


+  60hy(x)  +  0(h6)  . 


2.3.2  Normal-Gradient  Specified  Along  a  Curved  Boundary 
When  the  boundary  r  for  the  Neumann  problem  is  curved, 
the  problem  of  deriving  suitable  formulae  for  points  near 
the  boundary  is  much  more  formidable.  Two  main  methods 
used  are  due  to  Fox  [9]  and  Viswanathan  [22].  These  methods 
introduce  truncation  errors  which  are  greater  than  that  of 
the  five-point  formula;  so  that,  in  applying  the  methods, 
the  interval  size  should  be  decreased. 

Fox  introduces  external  points  like  1  and  4  in  Figure  2.5 


I  l  I  j 
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in  the  standard  five-point  formula  (2.2.3)  relevant  to 
the  point  0.  The  external  values  are  then  related,  through 
the  normal  derivative  condition,  with  internal  values,  and 
therefore  eliminated  from  the  five-point  formula. 


Figure  2.5  Normal-Gradient  Specified  Along 

a  Curved  Boundary 


By  drawing  normals  from  the  point  1  to  the  boundary 
r  at  A  ,  and  from  point  4  to  T  at  B  ,  so  that  they  meet 
internal  mesh  lines  at  C  and  D  ,  respectively,  we 
observe  the  typical  case  shown  in  Figure  2.5.  If 
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denotes  the  distance  from  points  0  to  C  and  A^h  the 
distance  from  points  7  to  D  ,  we  have  that 


(2.3.10) 


Y(  A) 


U1  UC 


h 


+i 


+  0(h) 


i 


and 


(2.3.11) 


Y(B) 


uitud 

h/^  +  1 


+  0(h)  . 


Linear  interpolation  for  uc  in  terms  of  and  uQ  , 

and  for  in  terms  of  and  ,  yields 


(2.3.12) 


UC  =  X2U2  + 


(1-X2)u0  +  0(h) 


and 


A3u3  +  (1-X3)u7  +  0 ( h  ; 


» 


(2.3.13) 
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respectively.  Substituting  (2.3.12)  and  (2.3.13)  into 
equations  (2.3.10)  and  (2.3.11),  respectively,  we  obtain 


and 


Thus,  the  five-point  formula  (2.2.3)  can  be  implemented, 
at  the  point  0,  but  with  an  increased  truncation  error 


of  0(h2)  . 


The  second  method  due  to  Viswanathan  is  more  complex 
but  secures  greater  accuracy.  The  proofs,  likewise,  are 
very  complicated  so  that  the  formulae  are  stated  without 
proof . 

Assume  that  r  has  a  continuously  turning  tangent; 
that  is,  corners  are  excluded. 
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Figure  2.6  Normal-Gradient  Specified  Along 

a  Curved  Boundary 

Suppose  that,  with  reference  to  the  five-point  formula 
at  the  point  0  (Figure  2.6),  a  single  point  1  is  external 
to  the  region  R  .  If  Ah  denotes  the  distance  from  the 
point  0  to  the  point  A  ,  and  if  the  normal  to  T  at  the 
point  A  makes  and  angle  a  with  the  mesh  line,  then 
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-  2h  A+m2  y(A)  +  2Ah2m  1-+m0  (-|¥-) 


1-m 


2  v8s'A 


2  /  2 
u  (1  .  m  +  2A  +  x  iL  E^±2L) 

2  1-m2  PA  1-m 


+  2u-(l  +  A  —  m-2-^4) 
3  pA  1-m2 


(2.3.16) 


2  /  2 
■  /  -i  i  i  T  >  1+m  ,  h  m/l+m  s 

+  ujl  +  m  +  2A  — -y  -  A  —  - ) 

1-m  PA  1-m 


-  4uq(1  +  A 


1+m  +  ^  _h_  m 

1-m2  PA 


2A 


1+m 


1-m 


+  0(h3)  , 


where 


m  =  tan  a  , 


and  denotes  the  radius  of  curvature  of  f  at  the 


point  A  . 
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If  two  points,  1  and  2  as  in  Figure  2.7,  with  reference 
to  the  five-point  formula  at  the  point  0  are  external  to 
the  region  R  ,  then 


-  v/T  h  /l+m2  y(A)  +  Ah^m  (-^-) 


2„  1+m  f  9y> 

m  —2 
1-m 


/  „  ,  ,  1+m2  ,  Ah  m/l+m2 N 

=  Up(-m  +  A  - p  +  -  - p) 

^  1-ni  /2*pA  1-m 


2  2  /  2 
z ,  1+m  ,  Ah  m  /l+m  N 

+  u7(l  -  A  - p  +  — —  - p) 

1-m  /2p ^  1-m 


(2.3.17) 


/  .  ,  1+m 

+  u^  (m  +  A  - 2 

1-rn 


Ah  m 


/l+m2 


/2"pA  l-m£ 


2  2  /  2 
, ,  ,  ,  1+m  ,  Ah  m  /1+m  n 

-  uo(1  +  x  7—2  +  7= - r^} 

1-m  /2pA  1-m 


+  0 ( h3 ) 


. 
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Figure  2.7  Normal-Gradient  Specified  Along 

a  Curved  Boundary 


2 . 4  The  Third  Boundary-Value  Problem 

For  the  third  boundary- value  problem,  standard  formulae, 
such  as  the  five-point  or  the  nine-point  formulae,  can  be 
used  to  approximate  Laplace's  equation  for  points  not  near 
the  boundary.  For  points  near  the  boundary,  as  is  the  case 
for  the  Neumann  problem,  special  formulae  must  be  developed. 
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2.4.1  The  Third  Problem  on  a  Rectangle 

Theorem  2.10.  Let  u  =  u(x3y)  be  harmonic  in 
a  rectangular  region  R  with  boundary  F  ^  along  which 
equation  (1.1.5), 

a (P)u(P)  +  $(P)u  (P)  =  a (P)  3  P  on  T  3 

n 


is  satisfied.  If  u  has  a  Taylor's  series'  expansion  about 
a  point  0  (Figure  2.8)  near  T  with  radius  of  convergence 
of  at  least  2h  3  then  an  approximation  to  Laplace's 
equation  at  the  point  0  is  given  by 


(12a  -13$i)Uq  =  3y i  +  (3ql^-—  fc^ltu^+u^) 


(2.4.1) 


-  3  u  +  0 (h  ) 
1  o 


+  ( 3a 1) u j 
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r 


Figure  2.8  The  Third  Problem  on  a  Rectangle 


Proof : 


An  approximation  to 


5u 

3n 


at  the  point 


1  in  terms  of 


u 


0 


j  >  U3 


and 


is  obtained  from 


l8un  -  9u-~,  +  2uc 
0  3d 


(l8e~h?  -9e"2h^  + 


2e-3h?)u 


1 


=  llu1  -  6(|^)1  +  0(h4)  ; 
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that  is, 


(2.4.2)  ^In^l  =  1^uo“-1-1ui”9u2  +  2u^  +  O(h^)  . 


But  from  (1.1.5), 


6a1u1  6yl  "  6ei(8n)l 


=  6a1  -  3^_ (  18uq-11u1-9u2  +  2u^  )  +  0(h  ; 


so  that 


(2.4.3) 


( 6a1-1131 )u1 


=  6y1  - 


31 ( l8uQ-9u^+2u^ ) 


O  (hh 


Substitution  of  (2.4.3)  into  the  five-point  formula  (2.2.3) 
gives 
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4(6a1-ll$1)  =  (6a1-ll$1)  ( u-^+u^+u^+u^ )  +  O(h^) 
(2.4.4)  =  (6a1-1131) (18u0-9u3+2u5) 

+  (6a1-1131) (u2+u^+u^)  +  O(h^)  . 

Simplification  of  (2.4.4)  yields  formula  (2.4.1). 

Q .  E  .  D  . 

2.4.2  The  Third  Problem  with  a  Curved  Boundary 
Finding  formulae  for  the  third  boundary-value  problem 
for  points  near  a  curved  boundary  is  much  more  complicated. 
A  formula  with  truncation  error  of  0(h)  ,  similar  to 
Fox’s  formula  for  the  Neumann  problem,  is  presented. 

Suppose  that,  relative  to  the  five-point  formula 
at  the  point  0  (Figure  2.9),  the  point  1  is  the  only 
external  point.  u-^  is  then  related  to  internal  values 
by  the  use  of  the  third  boundary  condition  (1.1.5)  and 
thus  eliminated  from  the  five-point  formula. 

Let  6  denote  the  angle  that  the  normal  from  the 
point  1  to  the  boundary  r  at  A  makes  with  the  mesh 
line.  Then  if  Ah  ,  0^A<1  ,  is  the  distance  from  the 


- 
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point  1  to  the  point  A  along  the  mesh  line  (see  Figure 
2.9),  we  have,  on  expansion  by  Taylor’s  series,  that 


Figure  2.9  The  Third  Problem  with  a  Curved  Boundary 


u 


1 


e 


Ah  3_ 
cos  6  3n 

A 


,  Ah  /  3_u  x  , 
UA  cos  6  ^9n;A 


2  2 
Ah 


2  cos  6 


(i^i)  +  0(h3)  , 

3  n  A 


(2.4.5) 
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and 


(l-A)h  3_ 
cos  6  3n 


(2.4.6) 


(l-A)h  /_8u >,  (1-A)2h2  ,  32u n 

cos  6  ^  3n' A  2  „  ^ .  2  ^ A 

cos  6  3n 


Multiplying  equations  (2.4.5)  and  (2.4.6)  by 


(2.4.7)  kl  =  E  (aAh(1_X)  +  cos  > 


and 


(2.4.8)  k2  =  E  ^aA^h  “  ^a  COS  3  ^  * 


+  0(h3) 


respectively,  and  adding,  we  obtain 
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1  j 

kxul  +  k2uC  =  “auA  +  6A  (3^)A 


(2.4.9) 


X(l-X)ha. 

+  [  cos  6  +  (2A-1)6a](H}a 

n 


82u 


+  O(h^)  . 


Since  at  the  point  A  ,  (1.1.5)  is  true,  equation  (2.4.9) 
yields  the  following  approximation  to  u-^  in  terms  of 
interior  points: 


(2.4.10) 


klUl  =  yA  ~  k2uC  +  0(^h^  * 


Linear  interpolation  for  u^  in  terms  of  u^  and 
u^  yields 


(2.4.11)  uc  =  tan  6  +  (1-tan  6)uQ  +  0(h  )  , 


which,  when  substituted  into  (2.4.10),  gives 
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(2.4,12)  k 1u1  =  ya  -  k^Ctan  6  +  (1-tan  6)uQ]  +  0(h)  . 

Equation  (2.4.12)  is  now  substituted  in  the  five-point 
formula  to  produce  the  final  form 


[4k1  -  (1-tan  6)k2]uQ  =  YA  +  k1(u^+u/j) 

(2.4.13) 

+  (k^-tan  8  k2)u2  +  0(h)  . 


Since  the  truncation  error  is  so  large  in  formula 
(2.4.5),  its  application  would  require  the  use  of  a 
smaller  interval  size  at  the  boundary.  A  more  general 
formula,  for  which  two  points  relevant  to  the  five-point 
formula  are  exterior  to  the  region  under  consideration, 
can  similarly  be  derived. 


CHAPTER  III 


TORSION  OF  A  CROSS-SECTIONED  GIRDER 

3 . 1  Statement  of  the  Problem 

The  torsion  problem  for  a  beam  of  square  cross-section 
(with  sides  of  length  2)  leads  to  the  following  Dirichlet 


prob lem 

(see  Collat z  [ 4 ] ) : 

Problem  3.1  Determine  u  =  u(x3y)  in  the  region 

R  with  boundary  f  (Figure  3.1)  so  that 


i — 1 

• 

i — 1 

on 

2 

V  u  =  0  in  R  , 

and 


(3.1.2) 

2  2  v 
u  =  x  +  y  on  f  . 
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y 


Figure  3.1  The  Torsion  Problem 


An  analytical  solution  to  Problem  3.1  can  be  obtained 
by  considering  four  sets  of  boundary  conditions,  which 
may  be  thought  of  as  representing  four  cases  of  the  steady- 
state  temperature  distribution  in  a  square  plate  (see 
Hildebrand  [12]),  where  the  region  R  now  represents  a 
square  plate.  If  we  solve  for  u^  (i=l,2,3,^),  u^  harmonic 
in  R  and  with  boundary  conditions: 
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(3.1.3) 


(3.1. 4) 


(3.1.5) 


and 


(3.1.6) 


where  r 


u 


1 


r 


l+x‘ 


on  T1  , 
on  r2,r3,r4  ; 


u 


2 


l+x‘ 


0 


on  r2  , 

on  r1>r3,r4  ; 


0 


on  r3  , 

on  rlar2 }r4  \ 


u  4  =  < 


1+y  on  Tj.  , 


0 


on  r1,r2>r3  j 


are  the  boundary  segments  defined  by: 


. 
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r-j_ :  y=l  ,  —  1 —X  —  1  ; 

r2:  y=-l ,  ~ 1 -X  —  1  ; 

r3:  x=l  ,  -l<y <1  ; 

r4:  x=-l,  -l<y <1  ; 


then  the  sum  of  the  solutions. 


(3.1.7) 


4 

u  *  I  ui  . 
1=1  x 


is  the  solution  to  Problem  3.1.  This  follows  from  the 
fact  that  the  sum  of  two  harmonic  functions  is  harmonic, 
and  that  the  sum  of  the  boundary  conditions  (3*1.3)  - 
(3*1*6)  yields  the  boundary  condition  (3*1.2)  on 

F  =  ri  u  r2  u  r3  u  r4  ‘ 

The  solutions  of  the  four  cases  (3*1*3)  -  (3*1*6) 
can  be  determined  by  the  method  of  separation  of  variables 
[12],  which,  on  addition,  yield  the  infinite  series 
solution , 


’ 
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u(x,y)  J  c,  {sin  d,  (x+1)  •  cosh  d,  y 
k=l  K  K  K 


(3.1.8) 


+  sin  dk(y+l)  •  cosh  dk  x}  , 


where 


(3.1.9) 


c,  = 


8 


(  2k- 1) 


(  77  + 


2k- 1 


)  (  7T  - 


■) 


1 


2k-l  cosh  d 


k 


and 


(3.1.10) 


dk = 


_  (  2k- 1) 
2 


77 


The  series  (3.1.8)  may  or  may  not  be  convergent  in  all 
parts  of  the  region  of  interst;  and,  even  if  it  is 
convergent,  evaluation  of  the  series  by  summing  a  finite 
number  of  terms  may  require  more  calculations  than  required 
when  solving  the  problem  numerically. 

In  solving  Problem  3.1  numerically,  we  observe  that 
the  problem  is  symmetric  about  the  origin  so  that  only 
the  region  in  the  first  quadrant  need  be  considered. 

Suppose  that  n  mesh  lines  in  both  the  x  and  y  directions 
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are  necessary  to  cover  the  simplified  region  R*  (Figure 
3.2)  by  a  square  grid-system  of  mesh  length  h  . 
Approximation  of  Laplace’s  equation  by  finite-difference 
formulae  at  the  interior  gridpoints 


(3.1.11) 


(ijj)  >  j  1,2, ... ,n  , 
i=l,2,. . . ,n  , 


then  reduces  the  problem  to  one  of  solving  a  system  of 
linear  algebraic  equations. 


y 

u 


n 


-  p 

* 

n 

(1,1) 


x 


1 


0*0 


«  •  © 


n 


Figure  3.2  Grid-System  for  the  Torsion  Problem 
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3 . 2  Solution  by  Use  of  the  Five-Point  Formula 

We  assume  that  nh  =  1  in  Figure  3.2,  so  that  the 
boundary  condition  (3.1.2)  yields 


(3.2.1) 


u(n+l,i)  =  u(i,n+l)  =  l+(i-l)^h^  , 


i=l,2,...,n+l  , 


for  gridpoints  on  the  boundary  F  .  For  the  interior 
gridpoints  (3-1.11),  the  five-point  formula  (2.2.3)  can 
be  written  as 


u(i,J)  =  ^  [u(i, j+1)  +  u(i+l,j)  +  u(i,j-l)  +  u(l-l).j)]  , 


(3.2.2) 


i  ,  j  2 , 3  , .  .  «  ,  ic  , 


and  from  the  symmetry  of  the  problem 


. 
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u(l,l)  =  |  [u(l,2)  +  u ( 2 , 1) ]  ; 


u(l,j)  =  ^  [ud.j-l)  +  2u(2,J)  +  u(l,j+l)]  , 


(3.2.3) 


j-2,3... 


,n 


u (i ,1 )  =  [u(i-l,l)  +  2u(i,2)  +  u( i+1, 1) ]  , 


i-2 , 3  ,  . . . ,n  . 


Let  I,  J  and  D^.  be  matrices  of  order  n  ,  where 
I  is  the  identity  matrix. 


(3.2.11) 


J  =  21  , 


and 
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-4  2 

1-4  1 

1-4  1 


(3.2.5)  Dk  = 


k=l , 2 } .  .  .  ,n  . 


1-4  1 

1  -4 


In  (3.2.5),  the  -elements  with  unassigned  values  are  zero. 
If  and  Uk  are  vectors  of  dimension  n  , 


Bk  =  [0,  0,  ...,  0,  l+(k-l)2h2]T  ,  k=l,2, . . . ,n-l  , 


(3.2.6) 


Bn  =  [1,  1+h2,  .  ..,  1+ (n-2 ) 2h2 ,  2+2 (n-1 ) 2h2 ]T  ; 


and 


(3.2.7)  Uk  =  [u(k,l),u(k,2) 


,u(k}n)]T  ,  k=l , 2 


) 


then  the  system  (3.2.2)  and  (3.2.3)  can  be  written  in  matrix 


notation  as 
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(3.2.8) 


AU  =  B  , 


where  A  is  the  block,  tridiagonal  matrix. 


(3.2.9)  A 


I 


D 


n-1 


I 


and  U  and  B  are  the  block  vectors  defined  by 


(3.2.10) 


U  =  [U 


T  ttT 


1 


u; 


UT]T 

n 


» 


and 


(3.2.11) 


BT]T 

n 
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The  system  (3.2.8)  can  be  solved  by  the  point-Gauss- 

Seidel  method  which  consists  of  recursively  applying 

equations  (3.2.2)  and  (3.2.3)  to  the  interior  gridpoints 

of  the  simplified  region  R*  .  A  consistent  ordering  of 

gridpoints  (one  such  ordering  is  given  by  (3.1.11))  must 

first,  of  course,  be  chosen.  The  point-Gauss-Seidel 

2 

method  requires  approximately  (n+1)  multiplications 
2 

and  3(n+l)  additions  for  each  iteration. 

When  solving  the  system  (3.2.8)  by  the  Gaussian 
elimination  method,  we  first  decompose  A  into  a 
lower-triangular  matrix  L  and  an  upper-triangular 
matrix  P  ,  so  that 

(3.2.12)  A  =  LP  . 

Forward-elimination  reduces  (3.2.8)  to 

(3.2.13)  PU  =  L_1B 


from  which  U  can  be  computed  by  back-substitution. 

It  can  be  seen  from  (3.2.9)  that  decomposition  of  A 
can  be  performed  by  blocks;  that  is,  elimination  in  the 
k'th  block  effects  the  elements  in  blocks  k  and  k+1 
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only.  For  example,  when  decomposing  the  k'th  block 
(l<k<6)  for  n=6  ,  elimination  is  performed  on 


where  D#  ,  with  elements  x  of  arbitrary  value,  denotes 
the  new  resulting  from  the  elimination  of  block  k-1  . 

At  the  third  stage  of  the  elimination  of  (3.2.14),  we  have 
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Figure  3-3 


and  after  the  final  elimination,  we  have 
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Figure  3 . 4 
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where  the  lower  right-hand  block  in  Figure  3.^  is  now 

D* 

K+l  * 

We  have  assumed,  in  Figures  3.3  and  3.^,  that  no 

pivoting  was  performed  during  the  elimination  process. 

This,  however,  is  a  good  assumption  since  A  is  diagonally 

dominant  and  pivoting  is  unnecessary  unless  n  is  very 

large;  and  even  then,  pivoting  is  unnecessary  until  the 

final  stages  of  the  elimination. 

Since  the  decomposed  matrix  A  (the  upper-triangular 

matrix  P  in  (3*2.13))  is  of  band  form  with  a  band  width 

of  n  (assuming  that  pivoting  is  not  used  and  the  l's  on 

top  of  the  band  (see  Figure  3.^)  are  ignored),  a  matrix 

2 

of  dimension  n  *  n  is  large  enough  to  store  all  the 
results  of  the  forward-elimination  of  A  .  Approximately 
n  multiplications  and  the  same  number  of  additions  are 
required  for  the  forward-elimination  and  back-substitution 
processes  . 

3 . 3  Solution  by  Use  of  the  Nine-Point  Formula 

When  the  nine-point  formula  (2.2.16)  is  used  to 
approximate  Laplace's  equation  at  the  interior  gridpoints 
(3.1.11),  the  problem  is  reduced  to  solving  the  following 
system  of  linear  algebraic  equations: 


, 

' 

. 
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u(i  » j  )  =  2XT  j+l)  +  u(i-l,j)  +  u  ( i  ,  j  - 1 )  +  u(i+l,j)] 


(3.3.D  +  u(i-l,j+l)  +  u(i-l,j-l)  +  u(i+l,j-l)  +  u(i+l,j+l)}. 


ijj  2,3,...,n  > 


and  from  the  symmetry  of  the  problem. 


u(l,l)  =  i  {2[u(l,2)  +  u( 2 j 1) ]  +  u( 2  s  2 ) }  ; 


u(X,j)  =  jjj  (2u( 1 , j  +  1 )  +  u(2,j+l)  +  4u(2,j) 


+  u(2,j-l)  +  2u(l,j-l)}  , 


(3.3.2) 


j=2,3, 


i 


u( i , 1 )  =  jQ  (2u(i-l,l)  +  u(i-l ,2)  +  4u(i,2) 


+  u(i+l ,2 )  +  2u ( i+1 , 1 ) }  , 


1=2,3, . . . ,n  ; 


■ 
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given  that, 
the  boundary 
Let  L 


(3.3.3) 


(3.3.4) 


and 


the  boundary  condition  (3.2.1)  holds  true  along 

r  . 

and  be  matrices  of  order  n  defined  by 


4  2 

1  4  1 

1  4  1 


1  4  1 

1  4 


-10  4 

2  -10  2 
2  -10  2 


5 


2  -10  2 


2 


-10 


Dk  =  2D1  ,  k=2 , 3 , • . • , 


(3.3.5) 


n  . 


If  B,  is  a  vector  of  dimension  n  defined  by 


Bx  =  [0,0 


0.7 


V 


» 


(3.3.6) 


=  [ 0 , 0  , .  ,  .  ,  0 , b,  ]^,  k=2 , 3  >  •  •  .  ,n-l  , 


Bn  =  »b 


,b  ,  ,  2b  ] 

*  n-1*  ” 


n- 


and 


(3.3.7)  bk  =  6  +  (6k2  -  12k  +  8)h2  ,  k=l,2,,..,n 


then  the  system  (3*3.1)  and  (3.3.2)  can  be  written  in 
matrix  form  as  in  (3.2.8),  with 
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D 


1 


L 


L  D 


2 


L  E>3  L 


(3.3.8) 


A 


L  D 


n-1 


L 


L 


D 


n 


and  U  and  B  defined  as  in  (3.2.10)  and  (3.2.11), 
respectively. 

As  for  the  five-point  formula,  decomposition  of  A 
by  the  Gaussian  elimination  method  can  be  performed  in 
blocks,  so  that  for  the  k'th  block  (with  n=6  ), 
elimination  is  performed  on 


iO  ■  .  ■  •  ■"  '■ 
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(3.3.9) 
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At  the  third  stage  of  the  elimination  of  (3.3.9),  we  have,  on 
assuming  that  no  pivoting  is  required, 
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and  after  the  final  stage  of  the  elimination,  (3.3.9)  bee 
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3.6 

The  decomposed  matrix  A  ,  as  in  the  case  of  the 

five-point  formula,  is  also  of  band  form  (see  Figure  3.6), 

but  its  width  is  now  n+2  ,  so  that  a  matrix  of  dimension 
2 

n  x  (n+1)  is  required  to  store  the  results  of  the 

forward-elimination.  Furthermore,  the  number  of 

multiplications,  as  well  as  additions,  required  to  obtain 

the  solution  of  the  system  resulting  from  the  nine-point 

2  2 

formula  is  increased  to  approximately  n  (n+1) 

Solution  of  the  system  by  the  point-Gauss-Seidel 
method,  which  consists  of  recursively  applying  formulae 


.  . 


J  . .  •• 

I+t 
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(3.3.1)  and  (3.3.2)  to  the  gridpoints  (3.1.11)  requires 

2  ? 

approximately  2n  multiplications  and  7n  additions 
for  each  iteration. 

Comparative  computer  times  required  to  obtain 
solutions  to  the  problem  by  the  point-Gauss-Seidel  method 
and  the  Gaussian  elimination  method  are  given  in  the  next 
section . 

3 . 4  Numerical  Results 

3.^.1  Presentation  of  Results  Computer  programs 
written  for  the  Fortran  IV  compiler  for  the  IBM  360/67 
computing  system  at  the  University  of  Alberta,  Edmonton, 
Alberta  to  solve  Problem  3.1  by  the  methods  discussed 
in  Sections  3.2  and  3.3  can  be  found  in  Appendix  II. 

A  summary  of  the  numerical  results  for  mesh  sizes  of 
Tj-,  — jy,  and  is  presented  in  Tables  3.1  and  3.2.  A 

smaller  mesh  size  is  not  used  because  of  the  limited 
storage  capacity  of  the  computer.  For  example,  if  the 
mesh  size  h  is  reduced  to  then  a  matrix  of  dimension 

1600  x  4l  (65,600  words  of  storage)  is  necessary  to  store 
the  results  of  the  forward-elimination  of  the  matrix  A 
in  (3.3.8). 

Two  types  of  errors  are  inherent  in  solving  partial 
differential  equations  by  finite-difference  methods.  The 
first  error  is  due  to  the  truncation  error  in  approximating 
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the  partial  differential  equation  by  a  finite-difference 
formula,  while  the  second  is  the  error  incurred  in  solving 
the  resulting  system  of  equations. 

In  order  to  determine  the  truncation  error  of  a 
finite-difference  formula  using  a  particular  mesh  size 
h  ,  the  system  resulting  from  this  approximation  must 
first  be  solved  to  a  degree  of  accuracy  which  is  better 
than  the  accuracy  of  the  finite-difference  formula.  This 
insures  that  the  error  of  the  finite-difference  formula 
is  the  dominating  one.  In  the  ideal  situation,  the 
solution  at  the  gridpoints  thus  calculated  is  then  compared 
with  the  exact  solution  of  the  problem.  When  the  exact 
solution  is  not  available,  however,  an  approximation  of 
the  truncation  error  of  the  finite-difference  formula, 
for  that  particular  mesh  size,  can  be  found  by  comparing 
the  solution  obtained  with  a  solution  which  is  significantly 
more  accurate.  A  more  accurate  solution  can  be  obtained 
by  using  a  finite-difference  formula  with  a  truncation 
error  of  higher  order,  or  by  decreasing  the  interval  size. 
The  grid-system  must,  of  course,  be  chosen  so  that 
comparisons  can  be  made  at  all  the  gridpoints  of  the 
lower-order  approximation. 

In  Tables  3.1  and  3-2,  the  maximum  truncation  error 
in  approximating  Laplace’s  equation  by  the  five-point  and 
the  nine-point  formulae  for  any  particular  mesh  size  is 
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obtained  by  first  solving  the  resulting  system  of  equations 
by  the  point-Gauss-Seidel  method  to  an  accuracy  of 
5  *  10”  ,  The  solutions  at  the  grid-systems  (corresponding 

to  different  mesh  sizes)  thus  obtained  are  then  compared 
with  the  solution  secured  when  approximating  Laplace's 
equation  by  the  nine-point  formula  with  a  mesh  size  of  -jJtj, 
and  solving  the  resulting  system  of  equations  by  the 
point-Gauss-Seidel  method  to  an  accuracy  of  5  *  10”^  . 

That  a  solution  to  the  system  (3?2„8)  obtained  by  the 
point-Gauss-Seidel  method  has  an  accuracy  of  e(e  =  5  *  10” 
in  the  above  case),  means  that  the  maximum  deviation  of 
u  from  the  previous  iteration  is  less  than  or  equal  to 
e  j  or, 


(3,4,1) 


max  |uk+1(i,j)  -  uk(i,j)|  <  e  , 
1 » J 


where  k  represents  the  number  of  times  that  the  point- 
Gauss-Seidel  iteration  has  been  applied.  To  begin  the 
iteration,  an  inital  guess  u^(i,j)  ,  which  for  this 

investigation  is  always  zero,  to  the  solution  u  must 
first,  of  course,  be  made. 

The  maximum  error  in  the  solution  of  the  system  in 
eaeh  case  is  obtained  by  first  solving  the  system  by  the 
point-Gauss-Seidel  method  to  an  accuracy  of  5  *  10”^  and 
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then  comparing  the  results  with  those  obtained  by  the 
Gaussian  elimination  method.  The  time  required  to  obtain 
the  same  accuracy  by  both  methods  can  then  be  found.  The 
timing  results  shown  in  Tables  3.1  and  3.2  exclude  the 
time  required  for  the  input  and  output  of  data,  and  are 
accurate  to  within  2  percent. 

3.4.2  Interpretation  of  Results  When  solving  a 
problem  in  partial  differential  equations,  a  finite- 
difference  formula  with  a  suitable  mesh  size  is  chosen 
so  that  the  finite-difference  approximation  is  of 
sufficient  accuracy.  The  resulting  system  of  equations 
need  then  be  solved  to  the  accuracy  that  the  finite- 
difference  approximation  warrants.  This  feature  is  easily 
incorporated  into  iterative  methods  by  terminating  the 
procedure  when  sufficient  accuracy  is  attained.  For 
direct  methods,  however,  the  accuracy  is  entirely  determined 
by  round-off  errors,  so  that  the  accuracy  of  the  solution 
of  a  system  of  equations  does  not  usually  correspond  with 
the  accuracy  of  the  finite-difference  approximation. 
Therefore,  the  fact  that  the  Gaussian  elimination  method 
is  much  faster  than  the  point-Gauss-Seidel  method  for  mesh 
sizes  of  -jj-,  and  ~  in  Tables  3.1  and  3.2  does  not 
indicate  that  the  method  of  Gaussian  elimination  should 
be  preferred  over  the  point-Gauss-Seidel  method,  since  the 
systems  are  solved  by  the  latter  method  to  an  unnecessarily 
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high  degree  of  accuracy. 

If  the  point-Gauss-Seidel  method  is  used  to  solve  the 
system  of  equations  to  the  same  accuracy  as  that  of  the 
finite-difference  approximation  (see  Table  3*3),  the  time 
required  is  decreased  for  nearly  all  cases.  For  case 
(#)  in  Figure  3 >3  (where  Laplace's  equation  is  approximated 
by  the  nine-point  formula  with  a  mesh  size  of  -^) ,  the  time 
is  increased,  because  it  is  necessary  to  improve  the  accuracy 
of  the  solution  of  the  system  to  that  of  the  nine-point 
formula. 

Ignoring  case  (*)  for  the  moment,  we  see  from  the 
table  entries,  t*^/tG^  and  t*9^tG9  in  Table  3.3,  that  the 
Gaussian  elimination  method  is  still  faster  in  nearly 
all  cases  (excluding  case  t  ,  where  the  five-point  formula 
with  a  mesh  size  of  ~  is  used)  than  the  point-Gauss- 
Seidel  method.  For  case  (*)  ,  the  final  solution  of  the 
problem  obtained  by  the  Gaussian  elimination  method  (with 
time  tpn),  due  to  round-off  errors,  is  less  accurate  than 
that  obtained  by  the  point-Gauss-Seidel  method  (with  time 
t*^).  The  solution  of  the  system  obtained  by  the 
Gaussian  elimination  method  for  this  case  might,  however, 
be  sufficiently  improved  by  applying  an  iterative  improve¬ 
ment  to  the  solution  (see  Ralston  [ 1 6 ] )  with  only  a 
moderate  increase  of  time  (approximately  2nJ  additional 
multiplications  and  2(n+l)^  additions  are  required  for 
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one  iteration  improvement);  so  that,  the  Gaussian  elimination 
method  should  still  be  faster  than  the  point-Gauss-Seidel 
method  in  obtaining  the  same  accuracy  to  the  final  solution 
of  the  problem. 

For  this  investigation,  we  have  chosen  an  initial 
guess  to  the  solution  of  the  system  always  to  be  zero 
before  applying  the  point-Gauss-Seidel  iteration.  For  most 
problems,  however,  a  better  estimate  is  known  (for  example, 

a  better  estimate  to  u  for  Problem  3*1  may  be  that 

2  2 

u  =  x  +  y  in  R*  ) ,  so  that  the  time  required  for  the 
point-Gauss-Seidel  method  is  once  again  decreased.  We 
therefore  conclude  (with  uncertainty  since  an  estimate  to 
the  solution  is  subject  to  human  discretion)  that  for  all 
cases,  the  point-Gauss-Seidel  method  may  be  just  as 
efficient  as  the  method  of  Gaussian  elimination  in 
obtaining  the  same  accuracy  to  the  final  solution  of  the 
problem.  For  case  (t)  ,  the  point-Gauss-Seidel  method 
is  undoubtedly  superior. 


CHAPTER  IV 


FLOW  OF  A  PERFECT  FLUID  IN  AN 
L-SHAPED  CHANNEL 

4 . 1  Statement  of  the  Problem 

We  consider  the  flow  of  an  incompressible,  perfect 
fluid  through  a  two-dimensional  channel  with  parallel  side 
in  which  there  is  a  right-angle  bend  (see  Collatz  [4]),  or 
Thom  and  Apelt  [20]).  It  is  assumed  that  the  fluid  flows 
in  with  unit  velocity  across  the  entrance  AF  and  out 
with  unit  velocity  across  the  exit  CD  ,  where  ABC  and 
DEF  are  the  walls  of  the  channel  as  in  Figure  4.1. 


Al-1  1  1  ,p 


y 

* 


\p  =  o 


t  =i 


x 


D 


B 


=  0 


* 


=  0 


Figure  4.1  - 


L-Shaped  Channel 
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The  velocity  components  of  the  fluid  v  and  v  can 

x  y 

be  written  as  the  partial  derivatives  of  the  stream  function 
f  ,  or  of  the  potential  function  <fi  : 


(4.1.1) 


v  =  i£  = 

x  9x  By  * 


and 


(4.1.2) 


_  B±  =  Bip 

y  3y  9x  • 


It  then  follows  from  the  Cauchy-Riemann  equations  (4.1.1) 
and  (4.1.2)  that 

(4.1.3)  V2c p  =  V2ip  =  0 


in  the  region  ABCDEF  .  Furthermore,  we  have  that  the 
stream  function  ip  is  constant  on  the  boundary  ABC  ,  as 
well  as  on  DEF  ;  and  that,  ip  varies  linearly  on  AF 
and  CD  if  the  two  limbs  of  the  channel  extend  sufficiently 
far  to  infinity. 


' 
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The  problem  in  terms  of  ip  then  becomes  the  following 
Dirichlet  problem: 

Prob lem  4.1  Find  ip  so  that 

2 

V  ip  =  0  in  the  region  ABCDEF  , 


subject  to  the  boundary  conditions 


(4.1.4)  ip  = 


0  along  ABC 
<  1  along  DEF 
varies  linearly  along 


AF  and  CD 


If  the  distance  from  A  to  B  is  chosen  to  be  the  same 
as  the  distance  from  B  to  C  ,  the  problem  becomes 
symmetric  about  the  line  BE  and  it  is  necessary  to 
consider  only  one  limb  of  the  channel,  ABEF  ,  say.  An 
analytical  solution  to  the  problem  has  not  yet  been  found, 
so  that  numerical  methods  must  be  resorted  to. 

For  solving  the  problem  by  finite-difference  methods, 
the  limb  ABEF  is  first  superimposed  by  a  square  grid- 
system  of  mesh  length  h  as  shown  in  Figure  4.2. 
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F 


E 


B 


Figure  4.2  Grid-System  for  the  L-Shaped  Channel 

Suppose  that  m  mesh  lines  are  required  in  the  x-direction 
and  n  in  the  y-direction.  Finite-difference  formulae  are 
then  used  to  approximate  Laplace's  equation  at  the  interior 
gridpoints 

(i>j)  >  i  =  l >  2 , . . . ,n-j  +  1  , 


(4.1.5) 


<3  1*2,.  .  .  j  m  j 
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and,  the  problem  is  reduced  to  that  of  solving  a  linear 
algebraic  system  of  equations. 

4 . 2  Solution  by  Use  of  the  Five-Point  Formula 

From  the  boundary  condition  (4.1.4),  we  have  that 

( i , 0  )  =  0  ,  i=l,2  , .  .  .  ,n+l  , 

(4.2.1)  iJj  ( i  ,  m+ 1 )  =  1  ,  1  =  1,2,.  .  .  ,n-m  , 

^(0,j)  =  -j/(m+l)  ,  j -1 , 2 , . . , ,m  . 


For  interior  gridpoints,  the  five-point  formula  (4.2,3) 
for  Laplace’s  equation  yields 


=  £  0(1, j+l)  +  +  'Ki+l.j)]  , 


(4.2.2) 


i  1 , 2  , .  .  .  ,n  j  , 

j -1 ,2 , . . « ,m  , 
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and,  from  the  symmetry  of  the  problem. 


iHn-j  +  l)  =  i  [i(/(n-j  ,  j  )  +  iKn-j  +  1 ,  j-1)  ]  , 


(4.2.3) 


j -1 , 2 , . . . ,m  . 


The  system  (4.2.2)  and  (4.2.3)  can  be  solved  by  the 
point-Gauss-Seidel  method  by  recursively  applying  formula 
(4.2.2)  and  (4.2.3)  at  the  gridpoints  (i,j)  until 
sufficient  accuracy  is  attained.  An  initial  guess  to  the 
solution  \p  at  the  interior  gridpoints  must  first,  however, 
be  made,  and  a  consistent  ordering  of  points  chosen.  One 
such  ordering  is  given  by  (4.1.5).  The  point-Gauss-Seidel 
method  requires  m(n+l)  -  m(m+l)/2  multiplications  and 
4mn  -  m(2m+l)  additions  for  each  iteration;  that  is,  for 
each  application  of  (4.2,2)  or  (4.2.3)  to  the  points  (4.1.5). 

The  system  can  also  be  solved  directly  by  the  method 
of  Gaussian  elimination.  Let  denote  the  matrix  of 

dimension  (n-k)  *  (n-k+1)  , 


■ 
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(4.2.4) 


1 


2  0 


i 


where  the  elements  which  are  not  assigned  values  are 
considered  to  be  zero;  1^  ,  the  matrix  of  dimension 
(n-k+1)  x  (n-k)  , 


(4.2.5)  Ik  = 


1 


0 


k  » 


3 


and  D 


the  tridiagonal  matrix  of  order  n-k+1 
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(4.2,6) 


-4  1 

1-4  1 

l-4l 


If  and  are  column  vectors  of  dimension 

defined  by 


Bk  =  [-k/(m+l) ,0,0, . . . ,0]T 

(4.2.7) 

Bm  =  , 


k=i ,  2 


}  «  ®  o 


and 


(4.2.8) 


'i'k  =  [>(  1  ,k)  ,ip(  2  ,k) , .  .  .  ,i|j(n-k+l ,k)  ] 


then,  using  the  same  ordering  of  points  (see  (3.1 
for  the  point-Gauss-Seidel  method,  the  system  (4. 
(4.2.3)  can  be  written  as 


n-k+1 


,  m-1  , 


.  5 ) )  as 
2.2)  and 


(4.2.9) 


Af  =  B 


3 


where  A  is  the  block-tridiagonal  matrix  of  order 
mn  -  m(m-l)/2  s 


(4.2.10)  A  = 


Di  h 


L1  D2  I2 


L  2  D  ^  I  ^ 


L  0  D  ,  I  -| 
m-2  m-1  m-1 


L  ,  D 
m-1  m 


and  y  and  B  are  the  block  vectors. 


(4.2.11) 


y 


m 


3 


and 


(4.2.12) 


B 


= 


b; 


bt]t 

m 
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It  can  be  seen  from  (4.2.10)  that  decomposition  of  A 
by  Gaussian  elimination  can  be  performed  by  blocks.  That 
is,  decomposition  of  D1  has  effect  on  1^  ,  L1  and  D 2 
only  (denoted  the  new  D 2  by  D*  ) ,  of  D*  on  I2  ,  L2 
and  only  (denoted  the  new  by  D#  ) ,  and  of  D# 


on  Ik  ,  Lk  and  Dk+1 

D*  ) 
uk+lJ  ‘ 


only  (denote  the  new  by 


For  example,  when  decomposing  the  k’th  block  for 
n-k+1  =  6  ,  elimination  is  performed  on 
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where  x  denotes  an  arbitrary  value.  At  the  third  stage 
of  the  elimination  of  (4.2.13),  we  have 
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Figure  4.3 


and,  after  the  final  elimination,  we  have 
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where  the  lower  right-hand  block  in  Figure  4.4  is  . 

We  have  assumed  in  Figures  4.3  and  4.4,  as  for  the  Torsion 
Problem  3.1*  that  no  pivoting  was  performed  during  the 
elimination  process. 

Since  the  decomposed  matrix  A  is  of  band  form,  with 
band  width  of  at  most  n  (assuming  that  pivoting  is  not 
used  and  the  l's  on  top  of  the  band  are  ignored  (see 
Figure  4.4)),  a  matrix  of  dimension  [mn  -  m(m-l)/2)  *  n 
is  large  enough  to  store  all  the  results  of  the  forward 
elimination  of  A  .  Approximately  (m-l)n  multiplications 
and  the  same  number  of  additions  are  required  for  the 
forward-elimination  and  back-substitution  processes. 

4 . 3  Solution  by  Use  of  the  Nine-Point  Formula 

When  the  nine-point  formula  (2.2.16)  is  used  to 
approximate  Laplace’s  equation  at  the  interior  gridpoints 
(4,1,5),  the  problem  is  reduced  to  solving  the  following 
system  of  linear  algebraic  equations: 

ip(i,j)  =  +  TjKi-l.j)  +  +  i|>(i+l,J)3 

+  ip(i-l,j+l)  +  ip(i-l,  j-1)  +  ip(i  +  l,j-l)  +  4>  ( i  +  1 ,  j  +  1 )  }  , 

(4.3.1)  i=l,2,. , . ,n- j-1  , 

j— l,2,.».,m  , 
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and,  from  the  symmetry  of  the  problem  (see  Figure  4.2), 


'Kn-j  ,j  )  =  ~  { 4  [  ip  ( n— j  ,  j  +1 )  +  ip(n-j-l,j  )  +  ip(n-j,j-l) 


+  ip(n-j+l,j)]  +  ip  (n-j  -1 ,  j  +1 ) 


+  ip(n-j,j-l)  +  ip(n-j  +  l,  j-1)  }  , 


(4.3.2) 


j=l,2. 


,m 


ip(n-j  +  1,  j  )  =  ^  {8  [ip(n-j  ,  j  )  +  ip (n- j  +  1 ,  j -1 )  ] 


+  ^(n-jjj  +  l)  +  2ip  (n-j  ,  j  -1 )  +  ip(n-j  +2  ,  j-1) }  , 


J  1 , 2 , . . . ,m  , 


given  that,  along  the  boundary,  the  boundary  condition 
(4.2.1)  holds  true. 

Let  be  the  matrix  of  dimension  (n-k)  x  (n-k+1)  , 


' 
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(4.3.3) 


Lk  = 


4 

1 


1 

4  1 
1  4 


1 


4 

2 


1 

8 


1^  ,  the  matrix  of  dimension  (n-k+1)  x  (n-k)  s 


(4.3.4) 


Jk  = 


4 

1 


1 

4  1 
1  4 


1 


4 

1 


1 

4 

1 


,  the  tridiagonal  matrix  of  order  n-k+1  , 
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-20  4 

4  -20  4 

4  -20  4 


(4.3.5)  Dk  = 


4  -20  4 

4  -19  4 

8  -20 


,  the  column  vector  of  dimension  n-k+1  , 


Bk  =  [-6k/(m+l) ,0,0, . . . ,0]T  ,  k=l , 2 , . . . ,m-l  , 

(4.3.6) 

Bm  =  [-(5m+ll)/(m+l) ,-6 ,-6, . . . ,-6]T  ; 


and  4'k  ,  as  defined  in  (4.2.8).  Then  the  system  (4.3.1) 
and  (4.3.2)  can  be  written  in  matrix  form  as  in  (4.2.9). 

As  for  the  five-point  formula,  decomposition  of  A 
by  the  Gaussian-eliminat ion  method  can  be  performed  in 
blocks;  so  that,  for  the  k  ’  th  block  (suppose  n-k+1  =  6  ), 
elimination  is  performed  on 


'  ...  ■  v* 
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(4.3.7) 
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At  the  third  stage  of  the  elimination,  we  have 
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Figure  4 . 5 
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and,  after  the  final  stage  of  the  elimination,  we  have 
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Figure  4.6 

A  matrix  of  dimension  [mn  -  m(m-l)/2]  *  [n+1]  is 
necessary  to  store  the  results  of  the  forward-elimination 
of  A  for  the  nine-point  formula.  Approximately 
(m-l)(n+l)J  multiplications,  as  well  as  additions,  are 
required  for  the  complete  Gaussian  elimination  process; 
as  compared  with  the  point-Gauss-Seidel  method  which 
requires  2mn  -  m(m-l)  multiplications  and  7mn  -  i  m(m+l) 


additions  for  each  iteration. 


■rt 
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4 . 4  Numerical  Results 

The  same  procedure  for  the  presentation  of  results  as 
in  Section  3.4  for  the  torsion  problem  is  used  in  this 
section, so  that  most  of  the  observations  that  are  made 
there  are  also  true  in  this  section.  Attention  is  thus 
focused,  not  on  the  accuracy  of  the  finite-difference 
approximation,  but  on  the  accuracy  with  which  the  resulting 
system  of  equations  is  solved.  Fortran  IV  programs  to 
solve  the  Problem  4.1  can  be  found  in  Appendix  IV. 

4.4.1  Test  Data  and  Results  An  example  of  the  problem 
is  given  in  Thom  and  Apelt  [20]  where  the  width  of  the 
channel  AF  is  1  unit  and  the  length  of  the  outside  wall 

of  the  channel  AB  is  2.75  units  (see  Figure  4.2).  For 
this  example,  the  five-point  formula  (2.2.3)  and  the 
nine-point  formula  (2.2.16)  are  used  to  approximate 
Laplace’s  equation,  and  the  resulting  systems  of  equations 
are  solved  by  both  the  point-Gauss-Seidel  and  the  Gaussian 
elimination  methods.  For  the  point-Gauss-Seidel  method, 
an  initial  estimate  of  the  solution  is  always  zero. 

A  summary  of  the  results  for  mesh  sizes  of  g,  and 
is  presented  in  Tables  4.1  and  4.2,  where  the  numerical 
values  are  obtained  as  in  Section  3.4.1. 

4.4.2  Interpretation  of  Results  The  finite-difference 
approximations  to  Laplace’s  equation  are  not  as  good  as  might 
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at  first  be  anticipated  when  using  formulae  with  truncation 

4  f. 

errors  of  0(h  )  and  0(h  )  ;  however,  due  to  the 
singularity  at  the  point  C  (Figure  4.1),  the  higher- 
order  terms,  which  are  truncated  in  the  Taylor’s  series 
expansion,  are  no  longer  insignificant.  To  compensate 
for  this  fact,  the  size  of  the  mesh  might  be  decreased 
near  this  point.  Singularities  for  this  investigation 
are,  however,  ignored. 

For  mesh  sizes  of  and  Tables  4.1  and  4.2  show 
that  the  speeds  of  the  point-Gauss-Seidel  and  the  Gaussian 
elimination  methods  are  approximately  the  same;  while  for 
a  mesh  size  the  point  Gauss-Seidel  method  is  consider¬ 

ably  faster.  The  time  required  to  obtain  the  solutions 
by  the  point-Gauss-Seidel  method  can,  however,  in  all 
cases  be  decreased  by  choosing  a  more  suitable  initial 
guess  to  the  solution  (4*  varies  linearly  in  Definition 
4.1,  for  example).  Furthermore,  the  solution  of  the 
system  need  only  be  as  accurate  as  the  finite-difference 
approximation,  so  that  the  number  of  point-Gauss-Seidel 
iterations  (and  thus  computing  time)  can  be  reduced 
accordingly.  The  user  has  no  such  control  on  the  accuracy, 
or  the  time  when  using  direct  methods  in  solving  systems 
of  equations . 

We  can  thus  safely  conclude  that  for  the  problem  of 
the  L-shaped  channel  (Definition  4.1),  the  point-Gauss- 
Seidel  method  is  superior  to  the  Gaussian  elimination  method. 


ft® 
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CHAPTER  V 


A  FREE-BOUNDARY  PROBLEM 

5 . 1  Statement  of  the  Problem 

We  consider  a  simplified  problem  of  fresh-water  flow 
in  a  confined  coastal  aquifer  (see  Charmonman  [3]).  Fresh 
water  is  supplied  by  a  series  of  parallel  canals  with 
intermediate  drains  (Figure  5.1),  where  the  fresh  and  salt 
water  interface  is  not  initially  known  (thus,  a  free¬ 
boundary  problem) .  The  configuration  is  symmetric  about 
the  centre  line  of  the  canal,  so  that  only  half  of  it,  as 
in  Figure  5.2,  need  be  considered. 


Canal 


Figure  5.1  Physical  Plane 
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Figure  5*2  Simplified  Physical  Plane 


5.1.1  Physical  Plane 
velocity  components  in  the 
respectively,  then  we  have 


If  u  and  v  represent  the 
x  y 

x  and  y  directions. 


(5.1.D 


3d>  _  dip 

Ux  "  3x  3y  » 


and 
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(5.1.2) 


v  =  i£  = 

y  3y  3x 


where  <J>  represents  the  potential  function  and  ip  the 
stream  function.  Equations  (5.1.1)  and  (5.1.2)  are  some¬ 
times  known  as  Darcy’s  law,  which  holds  true  under  a  few 
restrictive  conditions  on  the  medium  of  flow  and  on  the 
aquifer  (see  Charmonman  [2]).  Differentiating  (5.1.1) 
and  (5.1.2)  with  respect  to  x  and  y  ,  we  see  that  ^ 
and  <p  satisfy  Laplace’s  equation  in  the  region  of  flow; 
that  is , 


(5.1.3) 


and 


(5.1.4) 


The  boundary  conditions  for  the  problem  are  derived 
in  [3]  and  are  given  in  Table  5.1  in  dimensionless  form. 
The  problem  is  therefore  a  mixed  boundary-value  problem 
and  is  formally  described  by 
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Boundary 

Segment 

Boundary  Condition 
with  Respect  to  ^ 

Boundary  Condition 
with  Respect  to  <j> 

OA 

|±  =  o 

i 

o 

II 

-e- 

AA 1 

Ip  =  0 

A’B 

\p  =  0 

<P  =  y 

BC 

=  0 

H  ■ 0 

CD 

11  =  0 

6  =  constant  <p 

Tc 

DO 

if  =  i 

|i  =  o 

Table  5.1 

Boundary  Conditions  in  the  Physical  Plane 


Prob  lem  5 . 1  Find  ip  and  <fi  in  the  region  R 
of  fresh-water  flow  (Figure  5.2)  so  that  Laplace’s  equations 
(5.1.3)  and  (5,1.4) j  subject  to  the  boundary  conditions 
given  in  Table  5.1 f  are  satisfied ;  and ,  determine  the 
position  of  the  free  boundary  A’B  so  that  the  Cauchy- 
Riemann  equations  (5.1.1)  and  (5.1.2)  hold  true  for  all 
points  in  the  region  R  . 


. 
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Since  an  analytical  solution  has  not  yet  been  found, 
numerical  methods  must  be  used  to  solve  the  problem.  The 
greatest  difficulty  arises  in  finding  the  position  of  the 
free  boundary  AfB  ,  which  is  determined  by  a  trial-and- 
error  method. 

5.1.2  Complex-Potential  Plane  Obtaining  the  position 
of  the  free-boundary  is  greatly  simplified  by  transforming 
the  problem  into  the  complex-potential  plane,  although  an 
analytical  solution  to  the  transformed  problem  still  cannot 
be  found. 

If  we  let 


(5.1.5) 


w  -  <J>  +  i^  , 


then  w  is  an  analytic  function  in  the  region  R  of  the 
z-plane,  where 


(5.1.6) 


z  =  x  +  iy  , 


inasmuch  as  the  Cauchy-Riemann  equations  hold  true  and 
<|>(x,y)  and  i|j(x,y)  both  satisfy  Laplace’s  equation  in 

j  _  _ 

R  .  Thus,  provided  that  exists  and  is  different 

from  zero  in  R  ,  z  can  be  written  as 


. 


'li 


■ 
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(5.1.7) 


x  +  iy  =  f(<|>  +  ii/O  , 


and  is  analytic  in  the  region  R*  of  the  w-plane  (the 
complex-potential  plane),  where  R*  is  defined  by 
R  =  f(R*)  .  Therefore,  the  inverse  Cauchy-Riemann  equations 


(5.1.8) 


dx  _  dy 
3<J)  dip  9 


and 


(5.1.9) 


9x  _ 

dip  ~d$ 


are  true  in  R*  ,  and  the  inverse  Laplace’s  equations 


(5.1.10) 


2  2 

ax,  9  X 

a  4)2  dip2 


3 


and 


2  2 

9y  ,  ay  - 

2  2 
34>  dip 


(5.1.11) 


0 
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are  satisfied. 

Let  f”1  map  the  region  R  of  the  physical  plane 
(Figure  5.2)  into  the  complex-potential  plane  so  that  R* 
(f_1(R)  =  R*)  is  the  rectangular  region  shown  in 
Figure  5.3. 


ip  =  1 


D 

1 

2 

4 

0 

r 

Jr 

X 

3 

C 

B 

- S/-. - 

A’ 

— — 

A 

0  1  .  k1  .  J  .  k2  n 


Figure  5.3  Complex-Potential  Plane 

The  boundary  conditions  with  respect  to  y(<J>,i|0  along  the 
boundary  of  can  then  immediately  be  obtained  from 

Table  5.1  and  are  summarized  in  Table  5.2. 


106 


Boundary 

Segment 

Boundary  Condition 
with  Respect  to  y 

OA 

y  =  o 

AA* 

8y/8ip  =  0 

A’B 

y  =  <j> 

BC 

dy/dip  =  0 

CD 

y  =  o 

DO 

ii 

o 

Table  5.2 

Boundary  Conditions  in  the  Complex- 
Potential  Plane 


The  boundary  conditions  with  respect  to  x(<j>,ty) 
along  all  segments  of  the  boundary  of  R*  are,  however, 
not  available.  The  x-values  must  thus  be  found  by 
integrating  the  inverse  Cauchy-Riemann  equations  (5.1.8) 
and  (5-1.9). 


. 
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Along  lines  of  constant  \p  ,  such  as  the  vertical 
line  from  point  1  to  the  point  2  in  Figure  5.3,  we  have 


(5.1.12) 


X2  “  X1 


=  /  2  +  g  (^) 

*1 


\p, 

$ 


1 


which, on  substitution  of  the  inverse  Cauchy-Riemann  equation 
(5.1.8),  becomes 


(5.1.13) 


/  2  d*  +  g(i!>) 

♦l 


<P2 


But  along  lines  of  constant  ip  ,  g(i|/^)  =  g(ip2)  >  so  that 
(5.1.13)  reduces  to 


(5.1.14) 


X2  '  X1 


/ 


4> 


2 

dip 


d  4> 


Similarly,  along  lines  of  constant  <j>  ,  such  as  the 
horizontal  line  from  point  3  to  point  4  in  Figure  5.3,  we 
have,  from  the  inverse  Cauchy-Riemann  equation  (5.1.9), 


that 


- 
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(5.1.15) 


xi4  "  x3  = 


-  ^  If  ** 


V- 


Furthermore,  x  is  constant  on  AA ’  and  BC  ; 
that  is. 


(5.1.16)  x(P)  =  x ( A )  ,  P  on  AA*  , 


and 


(5.1.17)  x(P)  =  x(C)  ,  P  on  BC  . 


The  mixed  boundary-value  problem  in  the  complex- 
potential  plane  can  then  be  described  by 

Prob lem  5.2.  Find  y  =  y  ( <. pjty)  ,  harmonic  in  the 
region  R*  (Figure  5.3)  with  the  boundary  conditions3  as 
given  in  Table  5.23  satisfied;  and  determine  x  =  (<p3\l>) 
in  R*  by  use  of  the  integrals  (5.1.14)  and  (5.1.15)3  where 
the  position  of  the  points  A '  and  B  is  chosen  so  that 
(5.1.16)  and  (5.1.17)  hold  true. 

Although  the  trial-and-error  methods  is  used  to  find 


' 
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the  correct  position  of  the  points  A*  and  B  ,  only  two 
points  (not  an  infinity  of  points  as  in  the  physical  plane) 
need  be  considered. 

5 . 2  Solution  in  the  Physical  Plane 

In  this  section  only,  because  of  the  difficulty  in 
finding  the  free  boundary,  we  further  simplify  the  problem 
by  considering  the  flow  of  fresh  water  from  a  canal  without 
intermediate  drains.  This  is  a  special  case  of  Problem  5.1 
in  that  the  segment  AA '  of  the  boundary  of  the  region  R 
is  entirely  compressed  (see  Figure  5.^).  The  boundary 
conditions  along  the  remaining  segments  of  the  boundary, 
where  OA  now  represents  the  horizontal  outflow  face,  hold 
as  in  Table  5.1. 


y 


Figure  5 . 4  Grid  System  in  the  Physical  Plane 
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5.2.1  Method  of  Solution  In  solving  the  problem 
numerically,  an  initial  guess  as  to  the  shape  and  position 
of  the  free  boundary  AB  is  made.  <j)(x,y)  and  \p(x,y) 
are  then  indpendently  determined  in  the  region  R  of 
fresh-water  flow  by  the  method  of  finite-differences,  and 
the  Cauchy-Riemann  equations  tested  to  see  if  they  are 
satisfied.  If  they  are,  w  =  <J>  +  ip  is  an  analytic 
function  in  R  and  the  problem  is  solved;  if  not,  the 
free  boundary  is  adjusted  and  the  procedure  repeated. 

In  using  the  method  of  finit e-dif ferences  to  determine 
p  and  p  ,  the  region  R  is  first  superimposed  by  a 
square  grid-system  as  in  Figure  5.4.  Laplace’s  equation 
is  then  approximated  by:  the  five-point  formula  (2.2.3) 
at  all  interior  gridpoints  of  R  ,  except  for  those  near 
the  free  boundary  AB  ;  the  irregular-star  formulae,  (2.2.4), 
(2.2.14)  and  (2.2.15),  at  the  points  near  the  free  boundary 
(e.g.,  point  1,  Figure  5.4);  and  the  mirror-image  formula, 
(2.3.4),  at  those  boundary  gridpoints  for  which  the  normal 
derivative  is  specified.  Observe  that  all  the  above 

JLi 

formulae  have  a  truncation  error  0(h  )  .  The  two  resulting 
systems  of  equations  are  then  solved  for  <j>  and  ip  at 
the  gridpoints  of  R  by  the  point-Gauss-Seidel  method. 

In  determining  whether  the  appropriate,  free  boundary 
is  used,  the  Cauchy-Riemann  equations  need  be  verified 
along  only  a  curve  in  the  interior  of  R  .  This  follows 


Ill 


from  the  principle  of  analytic  continuations  (see  Knopp  [13], 
for  example),  in  that,  a  function  w  =  <p  +  i^  which  is 
analytic  on  a  curve  in  the  interior  of  R  and  for  which 
V2cf)  =  =  0  in  R  is  analytic  in  all  of  R  . 

An  alteration  in  the  free  boundary  has  the  greatest 
effect  on  the  Cauchy-Riemann  equations  for  points  near  the 
free-boundary  so  that,  the  best  choice  of  a  curve  on  which 

the  Cauchy-Riemann  equations  are  to  be  established  would  be 

2  2 

the  free-boundary  itself,  assuming  that  v  4>  =  V  ip  =  0 
there.  However,  the  point  B  is  a  stagnation  point,  and 
consequently,  some  difficulty  is  encountered  in  verifying 
the  Cauchy-Riemann  equations  near  B  .  To  moderate  the 
influence  of  the  stagnation  point  and  to  facilitate  numerical 
differentiation  of  cf>  and  \p  ,  a  curve  consisting  of 
broken-line  segments  above  the  free  boundary,  such  as  PQ 
in  Figure  5.4,  where  the  distance  of  PQ  from  the  free 
boundary  is  at  least  h  ,  is  chosen.  Standard  differentiation 
formulae  for  equally-spaced  points  (see  Appendix  I)  can  then 
be  applied  at  the  gridpoints  of  the  curve  PQ  . 

It  is  assumed  by  intuition  that  the  free  boundary  AB 
is  a  parabola  of  the  form 


=  (xc  -  xA)(y/y 


B  ^  +  XA 


y 


(5.2.1) 


x 


. 

. 

. 
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where  (xA,0)  and  (xc,yB)  are  the  coordinates  of  the 
points  A  and  B  ,  respectively.  Starting  with  initial 
guesses  for  and  yg  ,  these  values  are  repeatedly 

modified  so  that  for  each  alteration,  the  Cauchy-Riemann 
equations  along  PQ  are  better  satisfied.  A  technique 
of  improving  the  position  of  the  free  boundary  is  suggested 
in  Table  5.3. 


First 

Derivative 

Points 

near  P 

Points  near  Q 

Sign 

Effect 

Sign 

Effect 

3<f>/3x 

+ 

+ 

3^/3y 

+ 

t 

+ 

3<i>/3y 

- 

+ 

t 

9^/3x 

+ 

t 

- 

1 

Table  5.3 

The  Effects  of  Region  Compression  on 


the  First  Derivatives 


. 


' 
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The  table  shows  how  an  increase  in  the  value  of  yg 

(yB+)  ,  or  a  decrease  in  the  value  of  (x^)  (i.e., 

compression  of  the  region  R  )  influences  the  values  of 

the  first  partial  derivatives  4^  >  4^  j  4^“  >  and  4^ 

d  X  dy  dy  dX 

the  points  near  P  and  Q  .  The  symbol  ’ is  used  to 
indicate  a  negligible  change  of  the  derivative.  When 
implementing  this  table  to  improve  the  position  of  the 

free  boundary,  it  should  be  noted  that  the  sign  of  a 

partial  derivative  changes  at  most  one  time  along  PQ  ; 
and  that,  an  alteration  of  x^  effects  the  partial 
derivatives  most  significantly  at  the  point  R  .  A  similar 
observation  holds  true  when  adjusting  the  point  B  . 

5.2.2  Data  and  Numerical  Results  A  program  written 
for  the  Fortran  IV  compiler  to  solve  the  canal  problem  in 
the  physical  plane  (Problem  5.1)  by  the  point-Gauss-Seidel 
method  using  finite-difference  approximations  of  O(h^) 
can  be  found  in  Appendix  IV.  An  initial  estimate  to  <J> 
and  ip  in  the  region  R  is  that  (}>  varies  linearly;  and 
that,  ip  varies  parabolically  with  respect  to  x  ,  and 
cubically  with  respect  to  y  .  More  precisely,  if  yj 
denotes  the  y-coordinate  of  the  free  boundary  AB  at 
Xj  =  xc  +  h(J-l)  ,  then 


' 

. 


n't 


♦  d.J) 


i 


J=2,3, . . . ,K1  on  CD  ; 


4>(1,J)  =  -Xj/xD  , 


(5.2.2) 


J=Kl+l,Kl+2 , . . . ,K2-1  on 


=  (~  -  l)2  , 

XA 


J=K2,K2+1, . .  .  ,N  on  OA  . 


On  lines  of  constant  x  (Xj,  J*1,2,...,N)  , 


yI 

cj)(I,J)  =  (1  -  -^)cj)(l,J)  +  yT  , 

y  t 


(5.2.3) 


i^(i, J)  =  (yI-yJ)2(2yI+yJ)^(i>J)/yj 


DO  ; 


y 
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for  2<I<M  and  >  yj  ,  given  that  y^  =  h(l-I)  . 

The  criterion  for  determining  when  to  stop  the  point- 
Gauss-Seidel  iteration  is  that  the  maximum  relative 
deviation  of  u  (u  represents  both  <j>  and  ip  )  from 
the  previous  iteration  is  less  than  a  preassigned  tolerance 
e  ;  that  is,  when 


(5.2.11) 


I.J 


For  this  investigation,  e  is  chosen  to  be  0.005. 

Test  data  are  due  to  Charmonman  [2]  and  include  the 
three  physical  situations  shown  in  Table  5=4.  <£c  ,  xc  , 

are  input  parameters  to  the  program  which  determine  the 
dimensions  of  the  problem  to  be  solved;  while  x^  and 
yB  are  the  input  parameters  which  determine  the  free 
boundary  (5.2.1),  and  thus  the  region  of  fresh-water 
flow.  The  values  of  x^  and  yB  are  subsequently 
adjusted,  by  increments  of  at  least  0.01,  so  as  to 
minimize  the  maximum  error  in  the  Cauchy-Riemann  equations; 
that  is,  minimize 


(5.2.5) 


max  { 
x ,y  on  PQ 


9  (J)  9  \p  j  |  9  ( p 

9x  “  Jy  1  9  1  97 


_ 
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Case 

1 

2 

3 

-4.0 

-4.0 

-2.0 

XC 

-4.214 

-5.5^9 

-1.424 

XD 

-3.893 

-4.843 

-1.848 

XA 

0.50 

0.50 

0 . 48 

-2.6 

-3.0 

-1.4 

(xC"XA)/yB 

-0.697 

-0.672 

-0.971 

Max.  Error 
in 

Cauchy-Riemann 
Eqns  . 

0.40 

0.38 

0.33 

Table  5.4 

Test  Data  In  the  Physical  Plane 


The  partial  derivatives  are  calculated  by  use  of  numerical 

p 

differentiation  formulae  of  0(h  )  given  in  Appendix  I  . 
Higher  order  formulae  are  not  used  because  of  the  large 


• 

• 
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error,  due  to  the  inaccuracy  of  the  finite-difference 
approximation,  already  inherent  in  the  solution  of  <J> 
and  ip  .  Adjusting  the  values  of  xA  and  yD  is  a 
tedious  process  and  usually  requires  many  runs  on  the 
computer.  Charmonman  [2]  stated  that  about  18  runs  were 
required  to  obtain  the  solution  for  each  physical  case. 

The  large  error  in  the  Cauchy-Riemann  equations  poses 
a  question  as  to  the  accuracy  of  the  solutions  obtained. 
Although  the  values  obtained  for  x^  and  yB  correspond 
very  closely  with  those  obtained  by  Charmonman  [2],  some 
doubt  remains  as  to  the  correct  equation  of  the  free 
boundary.  Approximation  of  the  free  boundary  by  an  ellipse 
produces  even  worse  results,  except  for  points  near  P  . 
Various  combinations  of  ellipses  and  parabolas  prove  to 
be  just  as  futile. 

Charmonman ' s  method  of  obtaining  the  solution  in  the 
complex-potential  plane  and  mapping  it  into  the  physical 
is  more  elegant  and  much  more  accurate.  His  method  is 
demonstrated  in  the  next  section,  for  the  problem  of 
canals  with  intermediate  drains. 

5 . 3  Solution  in  the  Complex-Potential  Plane 

5.3.I  Solution  by  Use  of  the  Five-Point  Formula 
Laplace’s  equation  for  Problem  5.2  can  be  approximated  by 
the  five-point  formula  for  the  interior  gridpoints  of  the 


' 
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region  R*  in  Figure  5.3.  We  then  have  that 


y(i.J)  =  if  [y(l,j  +  l)  +  y(i-l,j)  +  y  (i ,  j-1)  +  y(i  +  l,j)] 


(5.3.1) 


j  1 , 2  ,  .  .  .  ,  n  , 

l  ”  j.  j  2  j  (  .  o  ,  rn  . 


For  gridpoints  along  the  boundary  with  the  normal  derivative 
specified  (see  Table  5.2),  the  mirror-image  formula  (2.3.4) 
yields 


y(m+l,J)  =  ^  [  y  ( m+ 1 ,  j  + 1 )  +  2y(m,j)  +  y(m+l,j-l)] 


(5.3.2) 


j  1 , 2 , . = . , k^  , 
j=k2 ,k2+ls . . . ,n  ; 


while  for  gridpoints  along  the  remaining  segments  of 
boundary,  we  have 
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yd,o)  =  o  , 

y(i,n+l)  =  0  ,  1*0,1,. . . ,m+l  , 

(5.3.3) 

y  ( 0 » j  )  =°j  j  =  1 , 2  , .  .  .  ,  n  , 

y ( m+ 1 , j )  =  -h(n+l-j )  ,  j =kx+l 3k2+2 , „ . . ,k2-l  . 


Let  I  be  the  identity  matrix  of  order  n  ;  D  ,  the 
square  matrix  of  order  n  , 


(5. 3.4)  D 


-4  1 

1-4  1 

1  -4  1 


J  ,  the  matrix  of  dimension  n  *  k^2  (k^2  =  n-k2+k-^  +  l)  3 
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(5.3.5) 


J  = 


1 


1  2 


1 


1 


k 


1 


1 


1 


k 


1 


k2 

kp  +  1 


n 


k 


12 


K  ,  the  matrix  of  dimension  k^^  x  n  s 


(5.3.6) 


y 


T 


the  matrix  of  order 


k 


12 


y 
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(5.3.7) 


T 


-4 

1 

1 

1 

1 

-4  1 

0 

1 

1 

1 

1 

• 

0 

1  -4 

1 

i 

1 

1 

!  -4 

1 

1  1 

1 

1 

-4 

1 

0 

I 

1 

0 

e 

1  -4 

1 

i — 1 

o 

• 

» 

OJ 

OJ 

1 — 1 
X 

o 

• 

1 

2 


0 


> 


( i=l , 2 , . . „ ,m)  ,  a  column  vector  of  dimension  n  , 


(5.3.8) 


=  0  ,  i  =  l, 2 , o . o ,m-l  , 


Bm  [blsb2, . . . ,bn]  , 


where 


r 

o  , 

< 


l<j<kx  ,  k2<j<n  , 
kl<J’<k2  5 


h(n+l ,j ) 
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and 


(5.3. 


where 


If  A 


(5.3. 


Bm+1  *  a  vector  of'  dimension  k^ 


9) 


B 


m+1 


>K  ] 
12 


0  ,  j^k1>k1+l  , 


bk  ~1  *  J =ki+1  • 


denotes  the  block,  tridiagonal  matrix  of  order  mn+k^  ^  , 


10) 


D  I 
I  D  I 
I  D  I 


A  = 


I  D  I 
I  D  J 
K  T 
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and  B  the  block  vector  of  dimension  mn+k1 ^  , 


(5.3.11) 


B  =  [B^ ,  B^, 


RT  1T 
Bm+lJ 


y 


then  the  system  of  linear  algebraic  equations  (5.3.1)  and 
(5.3.2)  can  be  written  in  matrix  notation  as 


(5.3.12) 


AY  =  B  ; 


where  Y  is  the  block  vector  of  dimension  mn+k^  > 


(5.3.13) 


Y 


3 


with 


Y. 

l 


=  [  y  ( i  ,  1 ) ,y (1,2) , . . . ,y(i,n)] 


T 


(5.3.1^) 


1=1,2,. 


m 


T 

Ym+1  =  ty (m+1,1) ,y (m+1 ,2) , .. . ,y (m+1,ki2)] 


■ 
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Problem  5.2  i 
equations  (5.3.12) 

5. 3.1.1 

Seidel  Method  The 
point- Gauss -Seidel 
finite-dif ference 
gridpoints  of  the 
ordering  of  points 
of  points  used  for 


s  now  reduced  to  solving  the  system  of 


Solution  of  System  by  the  Point-Gauss- 

system  (5.3.12)  can  be  solved  by  the 
method  by  recursively  applying  the 
formula  (5.3.1)  and  (5.3.2)  to  the 
region  R*  (Figure  5.3).  A  consistent 
,  which  corresponds  to  the  ordering 
Y  in  (5.3.12),  is  given  by 


(5.3.15) 


(i  J)  > 


(m+1, j ) 


( m+ 1 ,  j  ) 


j  lj2,e.c,n  , 

i=l ,2,. . . ,m  , 

j  —  l,2,..,,k^  , 

j  =k-L+l  ,k-]  +2  ,  o  .  o  ,n 


An  initial  guess  to  the  solution  Y  is  that  Y  -  0  ;  and, 
a  criterion  for  determining  when  to  s t op  the  point -Gaus s- 
Seidel  iteration  is  that  the  maximum  deviation  of  Y 
from  the  previous  iteration  is  less  than  a  preassigned 


» 


125 


tolerance  e  ,  that  is,  when 


(5.3.16)  max  |yk+1(i,j)  -  yk(i,j)|  <  e  . 

1 » j 


mn+k-^2  multiplications  and  Stmn+k-^)  additions  are 
required  for  each  point-Gaus s-Seidel  iteration. 

5 . 3 . 1 • 2  Solution  of  System  by  the  Gaussian 

Elimination  Method  Decomposition  of  the  matrix  A 

(5.3.10)  into  the  product  of  a  lower-triangular  and  an 

upper-triangular  matrix  by  the  Gaussian  elimination  method 

can  be  performed  in  blocks,  as  for  the  system  (3.2.8)  of 

the  Torsion  Problem  3.1  (see  equation  (3.2.14)  and  Figure 

3.3  and  3.4).  The  complete  process  of  forward-elimination 

■2 

and  back-substitution  requires  approximately  (m+l)n 
multiplications,  and  about  the  same  number  of  additions. 

A  matrix  of  dimension  (mn+k^p)  *  n  is  required  to  store 
the  results  of  the  forward-elimination  of  A  . 

5. 3. 1.3  Solution  of  System  by  Schechter's 
Method  Schechter  [ 1 8 ]  describes  a  direct  method  of  solving 
a  system  of  equations,  for  which  the  coefficient  matrix  is 
of  block,  tridiagonal  form,  by  means  of  partitioned  matrices. 
His  method,  as  applied  to  the  system  (3.2.12),  is  now 


presented . 


■ 
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If  we  factorize  the  matrix  A  (5.3.10)  into  the  form 


(5.3.17) 


A  =  LU  , 


where 


(5.3.18) 


L  = 


l2  I 


L3  1 


L  I 
m 


Lm+1  1 


and 


(5.3.19)  U  = 


U1  1 


u2  I 


U  ,  I 
m-1 


U  J 
m 

U 


m+1 
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we  find  that  the  submatrices  U.  and  L.  are 

1  i 


recursively  as 


U 


1 


=  D  , 


(5.3.20) 


U. 

l 


D 


P 


-1 

i-1  » 


i=2,3a 


>m 


U 


m+1 


=  T  - 


KP_1J 

m 


and 


i=2s3>* 


(5.3.21) 


Lm+1 


3 


The  solution  to 


(5.3.22) 


LZ  =  B  , 


determined 


with  Z  defined  as  the  block  vector 
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(5.3.23) 


Z 


ZT  1T 

m+lJ  5 


is 


Z. 

l 


=  0  ,  i=2,3,...,m-l  , 


(5.3.24) 


Z  -1=B  ,-L,-IB  3 

m+ 1  m+ 1  m+ 1  m  3 


where  Z^  is  a  vector  of  dimension  n  for  i=la2,...,m 
and  of  dimension  k^2  for  i=m+l  .  The  solution  Y  to 
(5.3.12)  can  then  be  obtained  from 


(5.3.25) 


UY  =  Z  ; 


and  is  given  by 
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Y  X1  =  iT^Z  3 
m+ 1  m+ 1  m+ 1  3 


(5.3.26) 


Y  =  U_1(Z  -  JY  , , )  , 

m  m  m  m+1  3 


Y  ,  =  -U“1,Y  : 

m-1  m-1  m  3 


and  the  remaining  Y^  (i=m-2 ,m-3, . .  .  ,1)  are  determined 
recursively  from 


(5.3.27) 


=  -DY 


i  +  1 


-  Y 


i  +  2 


The  number  of  inversions  necessary  to  determine  U 

J  m 

can  be  reduced  to  one  by  setting 


(5.3.28)  U±  =  PT^Pi  . 


From  (5.3.20),  we  then  have 


P. 

l 


P  n  -  p  i=2  1 

i-1  i-2  3 


,m 


(5.3.29) 


•  00 
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with 


Summarizingj  the  solution  Y  to  (5.3.12)  can  be 
obtained  by  the  following  procedure; 

1.  Determine  P  n  and  P  ,  using  the  recursive  formula 

m- 2  m- 1  & 

(5.3.29), 


2.  Calculate  U"1-,  =  P_1-,P  0  ,  using  the  method  of 

m-1  m-1  m-2  J  & 

Gaussian  elimination  to  find  P”"1-,  , 

m- 1  ’ 


3  • 

Calculate 

U” 1  ( D 
m 

-  U”1-,  )_1  , 
m-1  5 

Calculate 

Lm+1 

KC  . 

5. 

Calculate 

Um+1  “ 

T  -  W  • 

6 , 

Use  the  method  of 

Gaussian  elimination  to  solve 

U 

m+1 

,  ,  =  B  ,  -  L  ,  ,B 
m+1  m+1  m+1  m 

for  Ym+1 

» 

7  o 

Calculate 

Y  =  U 
m 

_1 (b  -  JY  )  , 

mm  m+1  * 

' 


- 
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8.  Calculate  Y  ,  =-U  ^_Y 

m-1  m-1  m 


9.  Determine  Y^  (i=m-2,m-3 


>  •  •  •  » 


1)  using  the  recursive 


formula  (5.3.27). 

5.3. 1.4  Numerical  Results  Computer  programs  to 
solve  Problem  5.2,  using  the  five-point  formula  to  approxi¬ 
mate  Laplace's  equation  and  solving  the  resulting  system 
of  equations  by  the  three  methods  discussed  in  subsections 
(5. 3. 1.1),  (5. 3.1.2)  and  (5. 3. 1.3),  can  be  found  in 
Appendix  V. 

An  example  of  Problem  5.2  is  taken  from  Charmonman  [3] 
in  which  9^  =  -4  .  The  values  of  cf>^  and  ,  which 

best  solve  the  example  (i.e.,  when  (5.1.16)  and  (5.1.17) 
are  best  satisfied)  is  found  to  be  -2.6  and  -1.2), 
respectively.  A  flow  net  illustrating  the  solution  to  the 
problem  is  drawn  in  Section  5.3.3. 

For  the  above  example,  the  region  R*  (Figure  5-3) 
is  superimposed  by  a  square  grid-system  for  mesh  sizes  of 


1  1  _1_ 
T\>  5s  10* 


A  summary  of  the  numerical  results,  obtained 


for  the  y-coordinat es  at  the  gridpoints  of  each  of  the 
grid-systems,  using  the  methods  of  (5. 3. 1.1),  (5. 3. 1.2) 
and  (5.3* 1.3)  is  presented  in  Table  5.5,  where  the  table 
entries  are  to  be  intrepreted  as  for  Table  3.1. 

Because  two  singularities,  at  the  points  A'  and  B  , 


are  present  on  the  boundary  of  the  region  R*  ,  the 


' 

. 
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truncation  error  in  approximating  Laplace’s  equation  by  the 
five-point  formula  is  very  large  at  these  points .  The 
results  obtained  can,  however,  be  improved  be  decreasing 
the  interval  size  at  these  points;  although  no  such  effort 
is  made  in  this  invest igation} since  we  are  mainly  interested 
in  comparing  the  efficiency  of  direct  and  iterative  methods 
for  solving  the  systems  of  equations. 

1  1 

For  approximations  with  mesh  sizes  jp  and  the  time 
required  to  obtain  solutions  of  the  resulting  systems  of 
equations  by  the  Gaussian  elimination  method  are  approximately 
equal  to  the  times  required  to  attain  solutions  with  the 
same  accuracy  by  the  point-Gauss-Seidel  method.  For  the 
smaller  mesh,  however,  the  point-Gauss-Seidel  method  is 
much  faster.  Since  a  better  estimate  to  the  solution  than 
zero  is  probably  possible,  and  because  the  accuracy  of  the 
solution  obtained  by  the  point-Gauss-Seidel  method  can  be 
controlled,  the  point-Gauss-Seidel  method  is  undoubtedly 
superior  with  respect  to  speed  and  accuracy  to  the  Gaussian 
elimination  method. 

Using  Schechter  method,  the  results  obtained  are 
relatively  much  worse.  Not  only  are  the  solutions  to  the 
systems  less  accurate,  but  the  times  required  to  obtain 
them  much  greater.  The  reason  for  the  inaccuracy  of  the 
results,  as  explained  by  Schechter  [18],  is  that  rounding 
errors  increase  exponentially  when  using  the  recursive 
formulae  (5.3.27)  and  (5.3.29). 
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5.3.2  Solution  by  Use  of  the  Nine-Point  Formula 
Laplace’s  equation  in  Problem  5.2,  for  gridpoints  in  the 
interior  of  the  region  R*  ,  can  be  approximated  by  the 


nine-point 

formula,  so  that 

y  (i  J  )  = 

=  (4[y(i,j+l)  +  y ( i + 1 , j )  +  y(i,j-l)  +  y(i-l,j)] 

+  y ( i+1 ,  j  +  1 )  +  y(i+l,j-l)  +  y(i-l,j-l)  +  y(i-l,j+l)}  , 


(5.3.30) 

j  o  o ,n  y 

1-  1  j  2 , 0  •  ©  y  1T1  9 

For  gridpoints  along  the  boundary  with  the  normal  derivative 
specified,  we  have 

y  ( m+ 1 ,  j )  =  jq  {2[y(m+l,j +1)  +  2y(m,j)  +  y(m+l,j-l)] 

(5.3.3D  +  y(m,j+l)  +  y  ( m ,  j  - 1 )  }  , 


j  =1 j  2 , 


•  0 


. » k 2 >^2  3 


•  o  • 


n 

.3  iA  3 
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and  for  the  remaining  segments  of  the  boundary,  (5.3.3) 
holds  true. 

The  system  (5.3.30)  and  (5.3.31)  can  be  written  in  the 
matrix  notation  (5.3.12)  for  the  five-point  formula;  where 
now,  however. 


(5.3.32) 


4  1 

1  4  1 

1  4  1 


1  4  1 

1  f 


(5.3.33)  D 


-20  4 

4  -20  4 

4  -20  4 


-20 


4 


4 


4 

-20 
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( 5  -  3  o  34) 


1 

2 


J 


1  4  1 

_  _1_^_ 

1 


1_ 

4  1 

1  4  1 


k 


1 


k. 


k9  +  l 


1 


4  1 


1 


n 


.  k 


12 


1 

2 


(5.3.35) 


2 


-10 


k 


12 


k 


12 


1 


2 
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and 


bk  h(n-k1)  , 

*>k  +1  =  h[5(n-k1)-l]  , 


bi  =  6h[n+l-i]  ,  i=k1+2  ,^+3 , ,  .  .  ,k2-2  , 


(5.3.36)  bfc  ^  =  h[5(n-k2)+ii]  , 


bk  =  h(n-k2+2)  , 


b'  =  2b,  , 

ki  ki 


b.'  =  2b. 

k^+l  k^ 


5 o 3 . 2 0 1  Solution  of  System  by  the  Point-Gauss- 
Seidel  Method  After  making  an  estimate  to  the  solution  Y 
to  the  system,  (5*3.12),  for  the  nine-point  formula  to  be 
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zero,  the  estimate  is  Improved  recursively  by  applying 
formulae  (5.3.30)  and  (5. 3. 3D  to  the  gridpoints  (5.3.15) 
of  the  region  R#  .  The  point-Gauss-Seidel  iteration  is 
terminated  when  the  condition  (5.3.16)  is  satisfied. 
2(mn+k12)  multiplications,  and  5mn  +  5k12  additions, 
are  required  for  each  iteration. 

5. 3. 2. 2  Solution  of  System  by  the  Gaussian 
Elimination  Method  As  for  the  Torsion  Problem  3.1, 
decomposition  of  the  matrix  A  ,  (5.3.10)  for  the  nine- 
point  formula,  can  be  performed  in  blocks  (see  equation 
(3.3.9)  and  Figures  3.5  and  3.6),  Approximately 
(m+l)n(n+l)  multiplications,  and  the  same  number  of 
additions,  are  required  for  the  complete  Gaussian 
elimination  process.  A  matrix  of  dimension  (mn+k-^)  x 
(n+1)  is  necessary  for  storing  the  results  of  the 
forward-elimination  of  A  . 

5. 3. 2. 3  Numerical  Results  Fortran  IV  programs 
to  solve  the  system  (5.3.12)  for  the  nine-point  formula, 
using  the  point-Gauss-Seidel  method  and  the  method  of 
Gaussian  elimination,  can  be  found  in  Appendix  V,  A 
summary  of  the  numerical  results  for  mesh  sizes  of  -jj-,  — 
and  yjj  is  presented  in  Table  5.6,  where  the  table  entries 
are  to  be  interpreted  as  for  Table  3 . 2 s 

The  point-Gauss-Seidel  method  is  seen  to  be  much  faster 


. 
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than  the  Gaussian  elimination  method  when  solving  the  systems, 
for  mesh  sizes  of  and  -jj-,  with  the  same  accuracy .  By 
choosing  a  better  estimate  to  the  solution  than  zero,  or  by 
allowing  the  accuracy  of  the  solution  of  the  system  to 
correspond  more  closely  with  the  accuracy  of  the  finite- 
difference  approximation,  the  point-Gauss-Seidel  method 
becomes  the  more  efficient  method  in  all  cases. 

5.3.3  Summary  of  Results  In  Sections  3° 3=1  and  3=3=2, 
we  have  discussed  various  methods  of  determining  the  y- 
coordinates  of  the  gridpoints  in  the  complex-potential  plane 
(Figure  5.2),  assuming  that  the  values  of  <J>A  f  and  4>g  for 
any  particular  <PC  are  known.  It  remains  to  establish  the 
accuracy  of  the  choice  of  4>A,  and  4>B  by  calculating  the 
x-coordinates  of  the  gridpoints  so  that  equations  (5.1=16) 
and  (5.1.17)  are  satisfied;  and  thereby,  arriving  at  a 
complete  solution  to  Problem  5.2. 

The  x-coordinates  of  the  gridpoints  are  calculated  by 
improvising  the  Cauchy-Riemann  equations  in  the  integral 
form  (5.1.14)  and  (5.1.15).  Starting  from  the  point  0  at 
which  x  =  0  ,  the  x-coordinates  are  recursively  calculated, 
being  careful  so  as  to  minimize  the  influence  of  the 
singularities  at  the  points  A*  and  B  .  We,  therefore, 
first  determine  x  along  the  line  OD  of  constant  ip  ,  and 
proceed  to  calculate  x  along  lines  of  constant  \p  (line  34, 
Figure  5.3).  Fortran  IV  programs  using  numerical  differentiation 
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and  integration  formulae  of  0(n  )  and  of  0(n  )  (see 
Appendix  I)  are  included  in  Appendix  V. 

For  c|>c  =  -4  ,  we  determine  and  63  to  be  -1.2 

and  -2.6,  respectively,  corresponding  to  the  physical 
situation  with  xc  =  -4.214  and  x0  =  -3.293  .  A  flow  net, 
drawn  to  scale  is  shown  in  Figure  5.5. 


Figure  5.5  Flow  Net  for  the  Canal  Problem 


CHAPTER  VI 


CONCLUDING  REMARKS  AND  SUGGESTIONS 
FOR  FUTURE  RESEARCH 

We  have  considered  three  examples  of  Laplace’s  equation: 
namely,  the  Torsion  Problem  3.1  with  no  singularities  in 
the  region  under  consideration;  the  Channel  Problem  ^  *  1 
with  one  singularity  on  the  boundary  of  the  region;  and  the 
Canal  Problem  5.2  with  two  singularities  on  the  boundary 
of  the  region.  The  five-point  formula  and  the  nine-point 
formula  are  used  to  approximate  Laplace’s  equation,  with 
no  attempt  made  to  reduce  the  influence  of  the  singularities 
on  the  accuracy  of  the  finite-difference  formulae. 

A  favored  but  somewhat  inelegant  method  of  coping  with 
a  singularity  is  effectively  to  ignore  it,  and  to  mitigate 
its  effect  (the  effect  of  the  unboundedness  of  the  partial 
derivatives  of  some  order,  on  the  finite-difference  formulae) 
by  using  a  smaller  mesh  size  in  the  neighbourhood  of  the 
singularity.  A  more  elegant  technique  is  to  subtract  out 
the  singularity;  that  is,  for  a  function  u  which  is 
singular  at  some  point (s)  in  a  region,  or  on  the  boundary 
of  the  region,  find  a  function  w  so  that  u-w  is  analytic 
in  the  whole  region  (see,  for  example,  Motz  [15]  and  Woods 
[25]).  Such  a  function  w  ,  however,  cannot  always  be 
found.  It  might  be  interesting  to  attempt  to  reduce  the 


. 
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effect  of  a  singularity  by  making  a  t rans f ormat ion  of  a 
form  such  as 


v 


e-(u+c) 


) 


where  c  is  a  large,  positive  constant.  Laplace’s  equation 
for  u  then  becomes  Poisson’s  equation 


V2v 


-  e-(u+c>[(|H)2  + 


When  solving  the  systems  of  equations  resulting  from 

the  finite-difference  approximations,  we  have  shown  that, 

for  the  latter  two  examples,  the  point-Gauss-Seidel  method 

is  undoubtedly  the  more  efficient  method,  with  respect  to 

speed  and  accuracy,  as  compared  to  the  Gaussian  elimination 

method.  For  the  first  example,  however,  the  rate  of 

convergence  (determined  by  the  rate  with  which  (max  A.)^  0 

i 

as  k  ->  00  ,  where  the  A^  are  the  eigenvalues  of  the 
coefficient  matrix  of  the  system  (see  Forsythe  and  Wasow 
[8]))  of  the  point-Gauss-Seidel  method  appears  to  be  much 
smaller,  so  that  the  Gaussian  elimination  method  may  be  the 
more  efficient  method  of  solving  the  problem  (for  some 


' 
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particular  mesh  sizes,  at  least).  In  fact,  for  case  (*) 
in  Table  3.3  with  a  large  number  of  gridpoints,  a  moderate 
increase  in  the  accuracy  requirements  for  the  solution  of 
the  system  demanded  a  large  increase  in  the  number  of 
point -Gauss -Seidel  iterations  (3*36  times  as  many).  A 
possibility  for  future  research  thereby  suggests  itself,  in 
that,  for  large  systems  of  equations  where  the  largest  eigen¬ 
value  of  the  coefficient  matrix  is  close  to  unity,  it  might 
be  faster  to  obtain  the  solution  to  a  specified  accuracy 
(governed  by  the  accuracy  of  the  finite-difference 
approximation)  by  using  the  method  of  Gaussian  elimination 
with  iterative  improvement  (see  Ralston  [16]). 

As  already  mentioned  in  Chapter  I,  iterative  methods 
faster  than  the  point-Gauss-Seidel  method  have  been 
developed;  but,  a  necessary  condition  for  the  convergence 
of  all  of  these  methods  is  that  the  point-Gauss-Seidel 
method  be  convergent.  Thus,  for  systems  where  the  con¬ 
vergence  of  the  point-Gauss-Seidel  method  is  slow  (i.e.  , 
when  the  largest  eigenvalue  in  magnitude  is  close  to 
unity),  the  Gaussian  elimination  method  might  be  faster 
than  any  iterative  method;  while  for  other  systems,  iterative 
methods  may  not  converge  at  all.  For  Problem  3.1,  however, 
the  method  of  successive  over- relaxation  [8]  with  the 
proper  choice  of  an  over- relaxation  factor  (see  Young  [26] 
for  the  optimum  over-relaxation  factor  of  a  square  region 


1*15 


with  Dirichlet  boundary  conditions)  should  be  faster  than 
the  Gaussian  elimination  method. 

Direct  methods  other  than  the  method  of  Gaussian 
elimination  have  also  been  developed.  Included  are  the 
methods  of  Cornock  [5],  Schechter  [ 1 8 ]  and  Wilson  [23], 
which  are  based  on  the  use  of  partitioned  matrices.  These 
methods  all  require  the  calculation  of  the  inverses  of  a 
number  of  submatrices,  so  that  the  solutions  obtained  by 
these  methods  will  be  inaccurate  if  these  submatrices  are 
ill-conditioned.  Furthermore,  as  pointed  out  in  Fox  [10], 
round-off  errors  incurred  during  the  calculations  are 
propogated  exponentially. 

Since  Schechter’ s  method  requires  the  least  number  of 
inversions  (only  three,  see  Section  5^3*3),  an  attempt  to 
solve  Problem  5.2  using  his  method  was  made.  The  results 
obtained  are  much  worse,  with  respect  to  time  and  accuracy, 
than  those  obtained  by  the  Gaussian  elimination  method. 
There  is  little  hope  that  the  methods  due  to  Cornock  and 
Wilson  will  produce  better  results. 
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APPENDIX  I 


NUMERICAL  DIFFERENTIATION  AND  INTEGRATION 

Numerical  differentiation  or  integration  formulae 
can  be  derived  by  interpolating  the  function  y  =  f(x)  , 
whose  derivative  or  integral  we  seek,  by  a  polynomial 
of  sufficient  degree;  and  then,  differentiating  or 
integrating  the  latter.  This  method  of  deriving  the 
formulae  is  often  called  the  method  of  undetermined 
coefficients  (see  Milne  [ 1 4 ] ) . 

The  truncation  error  incurred  in  all  cases  can  be 
obtained  by  making  use  of  the  following  theorem  due  to 
Peano  (see  Davis  [6]): 

Theorem  1.1  Let  L(p)  =  0  for  all  peP^  > 
where  L  denotes  a  linear  function ,  p  an  arbitrary 
polynomial j  and  P  the  set  of  all  polynomials  of  degree 

r* 

n  or  less.  Then  for  all  fzC  [a,&]  , 

b  /  , 

L(f)  =  I  f  H+  (*)  K(t)dt  , 
a 


where 


n ! 


lxl(x-t)n+-} 


K  ( t ) 
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and 


( x-t) 


n 

+ 


(x-t)n  X>t  , 

1 

0  x<t  „ 


J/  in  addition  the  kernel  K(t)  does  not  change  sign  on 
[a,i?]  j  then 


L(f) 


(n+1 )  .  . 

_ _ (v) 

(n+1 ) ! 


L  (  x 


n+1  j 


a<v<b  , 


Note  that  the  differentiation  and  integration  operations 
are  linear  functionals  when  f eCn+ ^ [ a s b ]  . 

Numerical  differentiation  and  integration  formulae 
for  equally-spaced  points  are  now  listed  without  proof. 
We  assume  that 


f  (Xi) 


3 


and  that 


x.  =  xn  +  ih 
i  0 


1=1,2, 


3 


oo* 


3 
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where 


1. 1 


y; 


y 


h  is  the  interval  size 


Differentiation  Formulae 


1.1.1  Formulae  of  0(h  ; 


y0 


k  (-3yo  +  ^1  -  y2)  +  T  f(3)(v0> 


yi 


2h  ("  y0 


+  y2)  -  V  f(3)(v1) 


y2  =  (  y0  -  +  3y2>  +  T  f<3)(V 


X0"vi-X2 


1.1.2  Formulae  for  0(h  ) 


1 


)  12h 


h  ~( 5 ) 


( —  2 5y 0  +  ^8yx  -  36y2  +  l6y3  -  3y4)  +  ~  1  (VQ) 


I  = 

L 


1 


hH  ~( 5 ) 


(-  3y0  -  10y;L  +  l8y 2  -  6y3  +  y4)  -  20  f  (vi) 


12h 
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y2  =  T5h  (  yo  ‘  8yi  +  8y 3  *  yl  +  |o  f<5)<v2) 

4 

y3  =  T?h  (‘  yo  +  6yi  -  l8y2  +  10y3  -  3yl  '  h  f!5'(v3) 

4 

y4  =  lih  (  3yO  ”  l6yl  +  36y2  “  48y3  +  25y^}  +  T  f  5)(v4) 


x 


0 


<v .  <x 
1 


4 


1.1.3 


Formulae  of 


0  ( h  6  ) 


y0  =  Mh  (-lij7y0  +  360yi  “  n50y2  +  400y 3  »  225y1| 


+  75y5  - 


10y6) 


+ 


) 


yi  =  oth  10y0  _  77yi  +  150y2  ■  10°y3  +  5°yu 

-  I5y5  +  2y6)  -  Tjj  f!7)(vx) 
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y2  =  Mh  (  2y0  -  2ljyl  -  35y2  +  80y3  -  30yi| 


+  Sy5  - 


»6>  *  ife  '<7><V 


1 


y3  '  50h  (-  yo  +  9yi  -  '•Sy. 


+  45y 


9y5  + 


y6J  "  190 


1 


yi|  =  '50h  (  y0  -  8yl  +  30y2  -  80y3  +  35yi( 


+  25yc  - 


y5  =  £oh  (_  2y0  +  15yl  -  5°y2  +  10°y3  -  iSOy ^ 


+  y7y5  +  10J6)  -|j  f(?,(v5) 


y6  =  Mh  (  10y0  "  72yl  +  225y2  "  I,00y3  +  45°7i) 


-  360y5  +  lH7yg)  +  !y-  f<7)(vg) 
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I . 2  Integration  Formulae 

h 

1.2.1  Formulae  of  0(h) 


X2  I  h  ,  .  „  .  x  h5  „(4) 


!  f ( x ) dx  =  j  (  yQ  +  Hyi  +  y2)  _  _  ;(Vq) 


■o 


/  2  f ( x ) dx 
x. 


=  (-y0  +  +  5y2)  - 


5T  f  ( V 


x0“vi “x2 


1.2.2 


Formulae  of 


0(h6) 


/  f (x ) dx 
X0 


90  ^ 


7y0  +  32yl  +  12y2  +  32y3  +  7yl) 


8h7  f  (6) ,  x 

9^5  f  v0 


4  „ ,  x  ,  h 


/  f(x)dx  = 
X1 


240 


(-  9yQ  +  126y1  +  2l6y2  +  306y3  +  8^) 
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/  ^  f ( x ) dx  =  (-  yQ  +  4y1  +  24y2  +  124y^  +  29y^) 

X2 


4 

3 


( v2 ) 


/  11  f ( x ) dx  =  (-19y0  +  106y  1  -  2 6 4y 2  +  646y2  +  251y^) 

x3 


9h 

“T 


f(5)(v3) 


X0-ViSXJ4 


APPENDIX  II 


PROGRAM  LISTINGS  FOR  THE  TORSION  PROBLEM 

This  section  contains  program  listings  for  the 
Fortran  IV  compiler  for  the  IBM  360/67  computing  system 
to  solve  the  Torsion  Problem  3-1*  Included  are  programs 
to  solve,  by  the  point-Gauss-Seidel  and  the  Gaussian 
elimination  methods,  the  systems  resulting  when  the 
five-point  formula  and  the  nine-point  formula  are  used 
to  approximate  Laplace's  equations  (see  Chapter  III), 
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C  L  A  P  L  ACE'  S  EQUATION  FLU  THE  TORSION  PROBLEM 

IS  APPROX  I  -1  ATE i )  BY  THE  FIVE-PDIM  FORMULA. 

C  THE  RESULTING  SYSTEM  IS  SOLVE  J  BY 

C  THr  GAUSS-  S  c  I  0  r_  L  M  L  T  H  0  0  . 

C 

DIMENSION  Ul-1,41) 

R FAD (5,1)  N,H,fiPR 

1  FORN  AT  (  I  I  "  ,  2F1A  .  ~  ) 

C 

C  AN  INITIAL  GUESS  IS  ZERO. 

C  BOUNDARY  CONDITIONS  ARE  X**2  +-  Y  *  A  2 . 

r 

NN=N+ I 
HH=H*H 
OH  ?  1=1,  N 
DO  2  J  =  1  ,  N 
U( I  ,  J  )  =  A  . 

2  CONTINUE 

TEMP  =  1  ,+HH*  (  I  -  l )  2 

U  (  I  ,  N  N  )  =  Tr  -ip 
U( NN ,  I  )  =  r  -  ■  p 

3  CONTINUE 

p 

C  APPLY  GAUSS-SEID-L  ITERATION. 

L  =  A 

DO  7  K  =  1  ,  1  ~  A  ? 

L  =  L  + 1 
EP  ROR  = A . 

TEMP  =  -A  .  5'M  U  (  I  ,2)  +U  (  2 , 1 )  ) 

ER  RO 2=  AN  A/1  (  ERkQr-  »  A  G  S  (  U  (  1  ,  1  )  -  T  F MP)  ) 

U  (  1  ,  1  )  =  T  E  ■  P 
DO  4  J  =  2  , :  I 

TEMP=A  .  ?5*(  U  (  1 ,  J-l  )  +U  (  1  ,  J  +  1  )  +U  {  2  ,  J  )  -KJ  {  2  ,  J  )  ) 

E  R  R  U  ;<=  A-  M  A  XI  (  E  R  R  ij  R  ,  A  ESI  U(  1  ,  J  )  -  T  E  M  P  )  ) 

U  (  1  ,  J  )  =  TE  •' P 

4  C  U  N  T  I  iN  U  E 
DU  6  I  =  2,v 

T  E  7 P  = A . 2  5  4 ( ; J  ( I  - 1 , 1 ) +  0 {  1  +  1  ,  1  )  +U (  I  ,  2  )  +  U {  I , 2 )  ) 

FR  kGR=  A  MAXI  (  cr<RIP  ,  A  B  S  (  U  (  I  ,  1  )  -TEMP  )  ) 

U  (  I  ,1  )  =  T  E  ;P 
DU  5  J  =  2  ,  " 

TEMP='-  .2  5*(  U  (  I  ,  J+l  )  +  U(  1  +  1,  J  )  +-U  (  I  ,  J-l  )  MJ  (  I  -  1  ,  J  )  ) 

ER  R  OR  =  A  M  A  X  1  {  E R  KO  h*  ,  A  B  S  (  U  (  T  ,  J  )  - T  E  X  p  )  ) 

U  (  I  ,  J  )  =  T  E  P 

5  CONTINUE 

6  CONTINUE 

I  F  (  ERKUR. .  LE  .  ERR  )  GO  TO  9 

7  CONTINUE 
WRITE (6,3) 


' 
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8  F  0 RN  A  F  (  '  N  1  CONV  E  8 OEi'lC  E  1  ) 

9  W  P  1 1  E  (  6  ,  1  "  I  L  ,  E  R  p  j  v 

I  '  F  0  R,  M  A  T  {  I  1  r  ,  p  1  5 . 3  ) 

00  12  1  =  1,  a! 

WR  I  T-( 6, 1 1 )  (  J(  I  , J )  ,  J  =  1  , N ) 

II  FORMAT ( IX, l~ F12.7  ) 

12  CONTINUE 

STn  P 
END 


no  on  o  n  n  n  non 
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c 

GAUSS  I  AN 

FL  I 

RINAT  I 

ON 

I  S 

I MPL EM 

ENT ED  TO 

r* 

THF  SGLUT 

I  ON 

TO  L  1 

PL 

A  C  F  ' 

S  ECU  A 

T  I  J  N  F  D  R 

THE  TORSI 

)  \l 

CJ  '  ‘I 

PRGBLF 

•  v’ 

• 

L  AP 

LACE' S 

F  0  U  A  T  I  U 

(.3 

(3 

APPROX  I M A 

T  E  0 

oY  Til 

" 

F  I  V  E 

-PIT  NT 

FOP  MU LA 

DIMENSION 

A  ( 

,  2  n 

)  t 

5(  4n 

*  ) 

COMMON  A, 

6 

p  c  A  D  (  5  ,  1  ) 

H  , 

1  FORMAT (FI 

• 

,  11  U 

H  H  =  Fi  4  H 
NN=N-1 
I  1  =N*M 
12=11-" 

13=12+1 

GEN F 2 A T I  ON  0 F  THE  R I GH  T- HAN 0  SIDE  8 . 
K  =  C 

OH  ?  1=1, 

DC  2  J=1  ,0  i 
K  =  K+1 
B  (  K  >  =  ^  . 

7  CCNTINUF 
R=K  +  1 

b  (  K  )  =  -  (  1  .  +  ‘  I H  *  (  I  -  1  )  **2  ) 

8  (  I  +  I  2  }  =  3  {  K  ) 

3  CONTINUE 

B(  II  )  =  -?..  *(  (  H-2  )  *H+2  .  ) 


L  A  T  I 


JF  THE  FIRST  BUCK. 


00  6  1=1,  N 
DO  5  J=l,  ! 
A  (  I  ,  J  )  =  r  . 
b  CONTINUE 
A  (  I  ,  I  )  =  -  4  . 
I  F  (  I  .  in]  F  .  1  ) 
I  F  (  I  .  N  F  .  \J  ) 
6  C  U  N  T  I  N  U  c 
A( 1 ,2 ) =2  . 


A  (  I  ,  I  -  1  )  =  1  . 
A  (  I  ,  I  + 1  )  =  1  . 


DEC  GOP.  'S  ITT  GiM  OF  THE  FIRST  N-l  BLOCKS. 


DO  7  I=1,NN 
CALL  TCP  8(1,0) 
7  CONTINUE 


C 


DF  CO  -IPOS  IT  I  ON  OF  THE  N'T  Li  BLOCK 

14=11-1 


F  I  N  0 
IS 


. 


l6l 


c 

c 

c 


r 


c 


c 


N  E  =  N 

DO  1 i  1=13,14 
I  5=  T  +  1 

T  P  =  -  1  ,  /  A  (  i  ,  1  ) 

DO  9  J  =  I  5  ,  I  l 
T  F  M  P  =  T  P  *  A  (  J  ,  1  ) 

DO  8  K=2,NE 

A .  (  J  ,  K-  1  )  =  A  (  J  ,  N  )  +  T6  P::  A  (  I  ,  K) 

8  CONTINUE 

B  (  J  )  =  B ( J ) +TEMP-3  (  I  ) 

9  CONTINUE 
NF  =  NE- 1 

lr  COOT  I  •' JUE 


BACK-SUBSTITUTION  If!  THE  N  1  TH  BLOCK. 


1  1 


A  (  I  1  ,  1  )  =  B  (  I  1  )  /  A  {  I  I  ,  I  } 
18=11+1 
DO  12  1=2, N 
1= I 5-L 
T  E  'Ji  P— S  (  I  ) 

DO  11  K  =  2 , L 

T  E  P  =  T  E  M  P  -  A  (  I  ,  K  )  -  A  (  I  +K  - 1  ,  1  ) 
CONTINUE 

A  (  1,1)  =TE'iJ/-M  1,1) 

CONTINUE 


BACK-SUBS  T 1 1  JT I 


ON  REN  A I  4  If; 


.LUCKS 


> . 


DO  1.4  L=  1  ,  I  2 
I = I 3-L 
K  =  I  +  N 


TEMP=3 ( I ) -A ( K, 1 ) 

I  F  (  I  .  L  E  .  M  )  TE  1P=TE  'P-A  (K  ,  1  ) 
K=  I  -1 


1  ^ 
14 
1  5 


DO  13  J  =  ?,N 

TE  iVP  =  T  E  M  P- A  (  I  ,  J  )  *A  (  K  +  J  ,  1  ) 
CONTINUE 

A  (  I  ,  1  )  =  T  E  '  P  /  A  {  I  ,  1  ) 

CONTINUE 

WE  I T E ( 6  ,  1  3 )  (  A ( I , 1  )  ,1  =  1,11) 
FORMAT (1  i  F 1 2 . 7 ) 


STOP 

CND 


■ 

ij ' 


SU3F0U  TIN1’  T  C  45(1,0) 


DECG  mPGS  ITIO  j  OF  THE  K  *  T H  BLOCK  FOR 
the  t ok sign  p k lj f l  c ' . .  l  \  f  l  a  c  e  *  s  e «j u a t  i  j r 

IS  APPRQXI  ■'  M-U  bY  THE  FIVE-POINT  FGKMUL 

D  I  YE  MS  I  D  A  A  (  •+  y •  ,  )  ,  a  (  4"  ~  ) 

CONMJN  A,  3 
NN=N-1 
I  E  =  L *N 
I M= I  E-AN 
IN1=IN+1 
DG  4  I  =  H  ,  I  E 
I  1=14-1 
I  2=  I  +NN 
TP=-1./A(I,1) 

DO  2  J=  I  1 ,  I  2 
TEMP -TP* A ( J  » 1 ) 

DO  l  K  =  2,N 

A  (  J  ,  <-  1  )  =  A  (  J  ,  X  )  +  T  E  P  *  A  (  I  »  K  ) 

CONTINUE 

B ( J ) =  3 ( J )+TEMP*u(  I  ) 

IF(L.EU.l)  T  E  1 P  =  T  E  :v<  P  +  T  E  M  P 

A ( J , N) =  TEYP 

CONTINUE 

I  F  (  I  .  N  E  .  I N  )  A  (  I  2  ,  N  )  =  4  (  I  2  ,  :Y  )  +  L 
I  F  {  I  .  £  w  .  T  0 1  )  A  (  I  2  » ■'  i )  =  A  (  I  2  ,  N  )  +  I 
!  3- I  2+  1 

no  3  K  =  2  » 

A  {  I  3  t  K  -  1  )  —  r  \  (  I  t  K  ) 

CONTINUE 

I  F  (  I  .  N  E  .  I N  )  A  (13,  N  N  )  -  A  (  I  ?  ,  N  N  )  +■  I  . 

A (  I ?  t  N ) =  TP-4  . 

I  F  (  L  .  F  0 . 1  )  A  (  I  3  ,  N  )  =  A  (  I  3  ,  N  )  -t-T  P 
B  (  I  3  )=:3  (13)  +  T  P  *  b  (  I  ) 

CO NT  I NUE 

RETURN 

END 


. 

- 
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r 

c 

r 


C 


c 

c 

r. 

r' 

L 


C 

c 

c 


LA  PL  ACT'S  EQUATION  FOR  TLF  TORSION  PROBLEM 
IS  APPROXIMATED  bY  Th5  'I  I  N  E-  PO  I  NT  FORMULA. 

THE  RESULTING  S  Y  S  T c :  ’  IS  SOLVED  b Y  THE 
GAUSS- SEIDEL  METHOD 

0  I  ME  JS  I  OH  0(41,41) 

R  E  A  0  (  5 , 1  )  H  t  M  ,  F  F  R 

1  TO  KM AT ( I  I  "  ?  ?  F  1 r . r  ) 

NN=  N+  1 

HH=H*H 

AN  INITIAL  GUESS  IS  ZERO. 

BOUNDARY  CONDITIONS  ARE  x**2+Y**2. 

on  ?  i  =  l r  n 
DO  2  J  =  1,N 
U ( I  , J ) =r . 

2  CONTINUE 

T E M P  =  I . +  HH  -  (  I -1 ) **2 
U(  I  t N N )=TE  •  P 
LM  NN ? I  )  =  TFMP 

3  CONTINUE 

U( NN  7  NT  ) =2. 

APPLY  G  A  U  S  S - S  c I  DLL  ITERATION 

L  =  n 

DO  7  K  =  1  7  10  ° 

L  =  L  +  i 

E  R  K  0  R  =  °  . 

TEMP  =  n.2*(  U(  1 , 2  )  +  U(  1 , 2  )  +  U  (  2 , 2  )  +  U(  2  ,  1  )  H(  2  ,  1  )  ) 

ERROR=  AMAX1  (  ERROR ,  AaS  (U(  1  ,  1  )  -Th  Mp  )  ) 

U  (  1  ,  1  )  =  T  E  ,4  P 
DO  4  J  =  2,N 

TE  M  P  =  0 . 1  *  (  2  .  *i.i  (  ]  tJ+!)+U(2,J+l  )  +  4  .  *u  (  2  ,  J  ) 

1+  U ( 2, J-l )+2 . 4 U (  1  ,  J-l  )  ) 

F  R  P  0  3  =  A  M  A  X  1  (  ERROR  ,  A  B  S  (  IJ(  1  ,  J  )-TF  MP  )  ) 

U< 1 , J  ) =  TEMP 

4  CONTINUE 
DC  6  1=2, N 

TEMP="  .  1  4(  ?  .  4!  j{  I  -  1  ,  1  )  +U  (  I  -  1 , 2  )  +4.  *U  (1,2) 

1+'J(  I  F 1  ,  2  )  H  . 4:j  (  1  +  1,1)) 

E  R  R  0  R  = A M A X 1 ( ERROR , AuS ( J(  1,1) -TL«P  )  ) 

U  (  I  ,  1  )  =  T  E  P 
DO  5  J  =  2  »  N 

T  E  M  P  =  D  .  n  5  4  (  4 . 4(1.)  (I  ,  J  +  1  )  +u  (  I-H,J)H(I,J-1)H(I-1,J)  ) 
1  HJ  (  I  -  I  r  J  F  1  )  +  !  J  (  I  +  1  ,  J  +  1  )  +U  (  I  +  1  ,  J  -  1  )  +  U  (  I  ~  1  ,  J  ~  1  )  ) 

ER  ROR=  AM AX1  ( ERROR , ABS ( U(  I  , J ) -TEMP  )  ) 

U( I , J) =TEU? 

T  CONTINUE 
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6  CONTINUE 

I  F  (  ERR  R  .  L=  .  E^R  )  GO  TO  9 

7  CONTINUE 

N  P  l  T  L  (  6 , 3  ) 

8  FORMAT!  •  NO  CONVEkGENCE'  ) 
9  CONTINUE 

9  WRITE! 6,1°)  L,  ERROR 

I FORMAT  (I  1C,  El  5. 8) 

DO  12  I  =  1  ,  N 

WR ITS ( 6, 1 1  )  ( U(  I  , J )  ,  J  =  1  ,N  ) 

11  FORMAT  (  IX,  nF12. 7) 

12  CONTINUE 
STOP 

END 
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c 

p 

c 


c 


c 

r 

c 


c 

r 

C 


LAPLACE’S  ECiUATICN  FOR  THE  TO' 
P K  C B  L - . ;  IS  A P P H  J  X  I H  \  TEJ  BY  The 
FORMULA.  THE  RESULT  I  HG  SYSTEM 
BY  to:  GAUSSIAN  11  LI-11 '.'ATI  ON 

ni  MENS  I  C  -J  A  (  4"  '  ,  21  )  ,  ‘  (  4r  r  ) 
COMMON  A  t B 
RE AO (5,  I)  H  f N 
I  FORMAT  (FK.Min 
Nr»  =  N-l 
I  1  =N  A.N 
N1=M+ 1 

12= I  l-r 
13=1 2+1 

GENERAT  I  Oim  0 F  THE  7  I  GH T -H AN D  5 

HH  =  h AH 
K=  7 

00  3  I  =  1  ,  N  7 
DO  2  J  =  1,M'‘ 

K=K  +  l 
B  (  K  )  =  7  . 

.2  COOT  I  HUE 
K  =  K  +  1 

B { K ) =- ( 6 . +HH  a (  ( 6 . a  I - 1 ? . ) A  I  + 8 .  i 
B (  1+ 1  2 ) =  b (  s ) 

3  CONTINUE 

B  (  N  )  =  7 . 5  A  3  (  N  ) 

bill  )  =  (24.-1 6.*H) AH- 2^. 

GENERATION  OF  THE  FIRST  tL?CK 

DO  5  1=1 »  N 
00  4  J  =  1 , N 
A(  I , j ) =r  . 

4  CONTINUE 

A  (  I  T  I  )  =  ~  1  °  • 

I  F  (  I  .  N  F  .  1  )  A  (  I  ,  I  -  1  )  =  2  . 

I  F  (  I  .  M  E  .  N  )  A  (  I  ,  I  +  1  )  =  2  . 

h  CONTINUE 
A( 1 , 2) =4. 


r 

r 


OECOMPOS n  I  ON  OF  THE  FIRST  N-l 

00  6  1  =  1  »  N  7 
CALL  TOR 9 ( I  »  N ) 

CO NT  I  HUE 


IS  I  JM 

:  NINE-POINT 
IN  SOLVE 0 
:  T HOD . 


I  D  b  3  . 


) 


nLCCKS 


C 

r 


6 


0  ECO 'IP  OS  I  T  I  3N  OF  THE  N'TU  BLOCK 


. 
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c 


I4=n-i 

N  E  =  N 

on  9  I  =  I  3  » I  4 

15=1+1 

tp  =  -i . / a ( i , l ) 

DO  8  J  =  I  5  ,  I  1 
TE MP=TP*A ( J , 1 ) 

DO  7  K=2,NE 

A  (  J  ,  K  -  1  )  =  A  (  J  ,  K  )  + 1 T  -  p  *  A  (  1 

7  continue 

B(  J  )  =B  (  J  )  +  TE-’P-B(  I  ) 

8  CONTINUE 


o 


OF  =  NF -  1 
CONTINUE 


•\  ) 


BACK  SIM  ST  I  TUT 


J  N  "'•I  THE  ••'l  1  T  H  K  LOCK. 


C 

c 

c 


i  o 

1 1 


A  {  I  1  ,  1  )  =  ri  (  I  1  )  /  A  (  1 1  ,  1  ) 
15=11+1 
DO  11  L  =  2  »  N 
I =1 5-L 
T  E  N  P  =  B  (  I  ) 

DO  10  K=2,L 

T  E  M  P  =  T  E.  M  ?  ~  A  {  I  ,K)  *A  (  I  +  K-1  ,  1  ) 

CONTINUE 

A  (  I  ,  1  )  =  T E  ‘V /  A  {  I  ,  1  ) 

CONTINUE 


ACfc- SUBSTITUTION  i  ’-N 


'1  A  I  i  I  N  'j  ci  L  C  C  K  S 


i  =  t  ? 

DO  14  L=1,n- 
DC)  13  L L  =  1  »  M 
I  =  I  - 1 


TEMP  =  l3  (  1  ) 

IF(LL.NE.l)  T  2  r  ■  P  =  T 

FMp- A (  I +  N  1 

I  F  (  L  L  .  r  0  .  N  )  T  E  I P  =  T 

E  M  P  -  A  (  I  +  M  1 

00  12  K=I,N 

TEMP=  n  :•  P-A  (  I  ,  K+l  ) 

-A (!+<,!) 

12 

continue 

A  (  1  ,  1  )  =  T  E  •  P  /  A  (  I  ,  1  ) 

CONTINUE 

1  4 

CQNT I NU  c 

WPI TE ( 6  ,  15 )  ( A ( I » 1 ) 

,1=1,11 ) 

1  5 

FORMAT ( 1 X  »  1 0  F  1  2 . 7 ) 

STOP 

END 

167 


SUBRD'JT  INE  T ' )  k  9  (  L.  ,  M) 

DEC  OM  POS  I T  I  0  i  OF  IMF  L  •  TH  BLOCK  FOR  THE 
TORS  I  ON  PROBLEM.  LAPLACE'S  EQUATION-  IS 
A  P  P  0 0 X  I M  A  T  F D  AY  THE  MIME-POINT  FORMULA. 


DIMENSION  A 
COMMON  A  t  ti 
Nn=  N - L 

Ni  =  N  +  I 
I 2=L*N 
I  3= I  3-1 
I  =  I  2 -Nr 
I  1=1 +  1 


t  2  1  )  r  B  (  4"  " 


EL  I  M  I  NAT  I  ON  OF  THE  FI-  ST  C  JLUI'N  . 

A  (  I  f  N 1  )  -  4  . 

TP=-1./A(I»1 ) 

DO  2  J  =  I  1  ,  I  2 
T  E  M  P  =  T '#  *  A  (  J  ,  1) 

DO  1  K  =  2  ,  N 

A(J»'K-1)=A(J  ,K)  +TE  ’P-A  (  I  ,  lO 

1  CONTINUE 

B  (  J  )  - D  (  J  )  +TCYPYP.  (  I  ) 

T  E  M  P  =  T  P>1  P  +  T  E M  P 
A  (  J  ,  N 1  )  -  T  F  4  P 
A  (  J  ,  -I)  -  f  L.  -1  P  +  T  •  i  P 

2  CONTINUE 

A (  I  1  ,  J  )  -  A (  II,  i)  + 1 

A  (  I  1  ,N1  )  =  A  (  I  1  f 1  -i  1  )  +  4 . 

A( I +2 , N 1 ) = A (  I +2 , Ml  )  +1  . 

MI  =  I  2+ 1 
NI 1=NI + 1 
TE MP=4. YTP 
D'J  3  K  =  2  »  M 

AIN  I  rK-1  )  =  Tc'-‘d*A{  I  ,  K  ) 

A  {  Ti  I  1  »  K  -  1  )  =  T  P  Y  A  (  I  T  K  ) 

3  CONTINUE 

A( MI  , 1  )  =  A ( N  I  ,  1  )  +2  . 

A  (  N  I  1  r  1  )  =  A  (  N  I  1  »  1  )  +  4  , 

A  (  Nil ,  2  )  =  A  (  U  I  l  t  2  )  +  1 . 

A  (  N  I  ,  N  )  =  4  .  *  T  E  M  P  -  2  2  . 

A  (  MI  ,  Ml  )  =  2  .  *  T  E  M  P  +  3  . 

AINIl,  ‘ i )  =  T E  •’  ?  +  4. 

A ( N I  1  »  N  1  )  =  3 . *TP-2r  . 

5  (  N  I  )  =  T  E  M  P  4  R  (  I  ) 

B  (  N  1 1  )  -  T  P  -y  3  (  I  ) 

EL  I  Ml  NATION  MB  REMAINING  COLUMNS 


■ 

- 
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DO  7  1=11,1? 

11=14-1 
M I = I +N 
N  1 1  =  N  I  + 1 
TP=-L . /A (  I  , 1  ) 

DC  5  J =11.01 
TFMP=TP*A ( J , 1 ) 

DO  4  4=2,01 

M  J  ,  4  - 1  )  =  A  (  J  ,  4  )  +  T  E  M  P  *  M  I  ,  K  ) 
4  CONTINUE 


IF  (  I  . 

L  . 

I 

2  ) 

l  J  , 

N 

1  )  = 

B  {  J  )  = 

B  (  J 

) 

4-T 

F  4 

p 

V:  pi 
■'  D 

( 

I  ) 

CONTI 

M 

U  c 

IF 

(  I  . 

( 

V  • 

I 

2  ) 

G 

j 

T 

n 

T 

A  ( 

I  1  , 

N  1 

1 ) 

= 

A  ( 

I  1 

, 

I'll 

) 

+  4. 

IF 

(  I  . 

'I 

F . 

I 

3  ) 

A 

(  I  4- 

7 

,  'll 

A  ( 

N  I  , 

h  [ 

I 

1 ) 

= 

A  { 

!\l  l 

J 

Nl 

) 

4-4. 

A  ( 

N  I  L 

f 

L  J 

- 

T  3 

*  A 

( 

I  , 

7 

)  +4 

DO 

6 

K 

=  3 

t 

N  1 

A  ( 

N  I  1 

» 

4  - 

1 

)  = 

TP 

4 

A  ( 

I 

,4) 

4  CONTINUE 

IF  (  I  .NE  .  13  )  A  (  II  1  ,  ?  )  =  A(  NI  1 , 2  )  +  1  . 
A  (  Nil  ,  IN  )  =  A(  N  1 1  ,  N  )  +  4. 

A  (  S  I  1  , ' !  1  )  =  T  P  -  9  ~  . 

B  (  M  I  1  )  =  2  (  '!  I  1  )  4-TP*3  (  I  ) 

7  continuf 

5  RETURN 
END 


APPENDIX  III 


PROGRAM  LISTINGS  FOR  THE  CHANNEL  PROBLEM 

Included  in  this  section  are  Fortran  IV  program 
listings  to  solve,  by  the  point-Gauss-Seidel  and  the 
Gaussian  elimination  methods,  the  systems  resulting 
when  Laplace's  equation  for  the  Channel  Problem  4.1  i 
approximated  by  the  five-point  and  the  nine-point 
formulae.  The  procedure  that  is  used  in  each  case  is 
described  in  Chapter  IV. 
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C  LAPLACE’S  E  J  U  AT  I  ON  IN  AM  L- SHAPED  CHANNEL  IS 

C  A  P  P  R  J  X  I  MEL  GY  Trip  FIVE-PHI  NT  FORMULA.  THE 

C  RESULTING  SYSTrN'  OF  -iv'JA  T  I  JiNS  IS  SllLVE  0  BY  THE 

C  GAUSS-SE  I  U  r  L  METHOD. 

C 

01  MEN  SI  ON  A (  1  5  N  ,26) 

READ(  5  ,  1  )  M,  Nir  I  TE  R  ,  ERR 

1  FOR  vat (31  1" , Fir  .5  ) 

,V  1  -  V  f  1 

•M  2  =  V  +  2 
N 1  =  N  +- 1 
N  2  =  N  +  2 

NM  =  M  1 
B  B  =  M  I 
C 

r  INITIAL  GUESS  IS  ZENO. 

C 

A( 1 , 1 ) =n  . 

DO  2  J  =  1  ,  v 
A  (  1  ,  J  +  1  )  =  J  /  B  C 

2  CENT  I  HUE 
A(  I , M2 ) =1  . 

V;  c  -  -„j 

Dn  4  I  -  2  r  N  2 

DO  3  J -  1 t  M F 

A  (  I  , J ) -^  . 

3  CONTINUE 

I  F  (  I  .  Lh.NO  A{  I  ,;•?  )  =  i. 

IF  (  I  ,GT  .0  '  )  M  F  =  H  E  -  1 

4  CONTINUE 


GAUSS-SE I  CEL  ITERATION. 

NC  =  ° 

5  ERR  HR= " . 

ME  =  N  I 

N  C  =  N  C  + 1 
DC  9  J  =  2  f  Ml 
M  E  =  M  E  -  1 
DO  7  I=7,vf 

TEMP= ^ .2  5*{ A (  I  , J-  I  )  +A(  I  ,  J  +  l  )  +A (  1-1  ,  J ) +A (  1  +  I, J )  ) 

EKROR=  AM  AX  I  (.ERROR,  ACS  (  T  E  •'  p  -  A  (  I  ,  J  )  )  ) 

6  A  (  I  ,  J  )  =  T  E 1 '  P 

7  CONTINUE 
v  E  I  =  El  E  +  1 

T  E  M  P  =  ?  .  5  *  (  M  Y  E  I ,  J  -  1  )  f  A  (  M  E  ,  J  )  ) 

ER kOR= A N A X  I  ( E <KOR , AbS  ( TE  ’P-A { ME  1  * J )  )  ) 

H  A ( ME  1 r  J ) =  TE M P 
9  CONTINUE 

I F ( ERROR . L E . E°  R )  GOTO  11 


■ 
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if ( mc .it.  iter)  got;  5 

WRITE  (6,  l'') 

FORMAT!  1  f i. I  CONVERGENCE  '  ) 

1  WRITE (6, 12)  NC, ERROR 

2  F  C  R  M  A  T  (  I  I  .  ,  E  2  ~  .  5  ) 

ME  =  M  2 

DO  14  I =1,42 

WRITE!  6,13)  (  A!  I  ,  J  )  ,  J  =  1  ,  '15  ) 

3  FOR'1  AT  (  1  X,  1  3  FT'  .  5  ) 

IF!  I  .G£.  MW)  ME=ME-1 

4  CONTINUE 
STOP 
END 
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C  G AU SS I AN-EL IMITATION  IS  IMPLEMENTED  TO 

C  THE  SO LUT I HM  TC  LAPLACE’S  twUATICN  I M 

C  L-SHAPED  CHA'JIEL.  LAPLACE'S  EQUAT  ION 

C  APPROXIMATED  DY  ThE  FIVE-POINT  FORMULA 

C 

D I M ENSIGN  A (  5  4  ~  ,  4  5  )  »  B ( 5  4  r  ) 
r  n  \A  r  a  i  a  p 

READ! 5,1)  1 , ;  I 

1  FGwv.  AT  {  2  I  1  '  ) 

M 1  =  M  - 1 

f.*  2  =  m  -  2 

J1 =*1*N- M 1  *  M  2/2 
J2  =  J  1  +  1 
J4=J  2+N-  M 
J  3  =  J  4  -  1 
r 

C  GEMERATI  1  N  CF  THF  RIGHT-HAND  S  I UE  8. 

C 

DO  2  J=1,J1 
B  (  J  )  =  ~*  . 

2  CONTINUE 
J  =  -  M 
Bft=  ‘‘  Pi 

DO  3  K  =  1  »  M 
J= J+N-K+2 
B ( J ) =-K/3B 

3  CONTINUE 

B  (  J  )  -  8  (  J  )  -  1  . 

J  J  =  J  +  1 

DO  4  K  =  J  J  ,  J  3 
B  (  K  )  =  -  1  . 

4  CONTINUE 

B  (  J  4  )  =  . 

C 

C  GENERATION  of  the  FIRST  BLOCK 

c 

DO  4  I  - 1  ,  U 
DO  5  J  =  1  ,  M 
A  {  I  ,  J  )  =  r'  . 

5  CONTINUE 

A  (  I  , I ) =  -  4 . 

I  F  (  1 ..  N  E  .  N  )  A  (  I  ,  I  +  1  )  =  1  . 

IF (  I  .ME  .  1  )  A (  I  ,  I  -1  )  =  1 . 

6  CONTINUE 

A ( N  ,  N-l ) =2. 

C 

C  DECOMPOSITION  OF  THF  FIRST  M- 1  BLOCKS. 

C 

DO  7  K  -  1  ,  M 1 
CALL  J  E  C  0  V  5 ( K , N ) 


F  I  N  D 
AN 
I  S 


. 
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c 

c 


c 

r 

Q 


c 

r 

c 


7  CONTINUE 

OECD N P G S  I  T  I  0  ;\i  GF  THE  MTH  BLOCK. 

NO =0-0 1 
N  E  =  N  M 

DO  17  I  =  J  2  ,  J  3 

11=1+1 

T  P  =  - 1  .  /  A  (  I  ,  1  ) 

DO  9J=I1,J4 
TEMP=TP*A ( J , 1 ) 

DG  8  K  =  2  ,  NE 

A  (  J  ,  K  -  1  )  = A ( J , K ) +TE M P -  A  (  I  ,  K  ) 

8  C  0  N  T  I  N  LJ  E 

B( J  )  =  B ( J  )  +TE 7P*8 (  I  ) 

Q  CONTINUE 
NE  =  NE -  1 
1  CONTINUE 


BACK- sue 


STI TUT  10 


Trie  NTH  BLOCK. 


A  (  J  4 , 1  )  =  0  (  j  4  )  /  A  (  J  4  »  1  ) 
J3  =  J  4+  1 

D  O  17  L  =  2  ,  4  ;'i 

r=  j  ?  -  l 

TEMP  =  3 (  I  ) 


11 

12 


DO  11  k  =  2  ,  L 

T  E  M  P=  T  t P  -  A  (  I  ,  K  )  *  A  (  I  +K  - 1  , 
CON  TIN UE 

A(  I  ,  1  )=TEi  7  /  A  l  I  ,  1  ) 

CONTI N UE 


) 


BACK-SUBSTITUTION  CM  THE 


I  N  I 


LOCK  S 


1  3 

14 
1  E> 


DO  15  l.  =  1,-11 
J  2  =  I 
N  M  =  N  0+  1 
DO  14  J  =  1  »  N -A 
I  =  J  2  -  J 
T  L  M  P  =  B  (  I  ) 

I  F  (  J  .  NE  .  1  )  T  E  •  V  =  T  E A/-  P  -  A  (  I  +  N  0  , 1  ) 
DO  13  K=2,NM, 

T  E M  P  =  T  E  M P - A (  I  , k )  *  A  (  I  +K  - 1  ,  1  ) 
CONTI N U  E 

A(  I  ,  1  )  =TE'i'V  A(  I  ,  1  ) 

CONTINUE 
CONT  INUE 
J  2  =  7 
NM=N 

DC  17  1=1,' 


. 

' 


17-4 


n  m = u  --i  -  ]. 
ji  =  j  ?  +  i 

J2  =  J  l  +  p,y 

WR  I  T  E  (  h  t  1 1 
1  6  F n R M AT (  IX, 
17  CONTINUE 
STOP 
FND 


)  (  A  (  J  ,  1  )  ,  J  =  J  1  ,  J  2  ) 
1  3  F  1  '  .  5  ) 
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c 

W 

r 

C 

r 


SUE  PHUT  I  4 F  DECO 05  (  L  ,  NT  ) 

DECOMPOSITION  OF  T  HIT  CM  A  IN  EL  PROBLEM  (3  Y 
GAUSS  I  AN -EL  I  'll  MAT  I  ,;N  0:4  THE  GIVE- EG I  NT 
FO R  MUL  A .  CL  jCn  K .  .  .  b L  00  K  SIZE  N . 

U  I  M  E  r  4  S  I  G  0  A  (  5  4 '  ,  4  5  )  ,  b  (  5  4  r  ) 

LOGICAL  If-iEJ 
COMMON  A,j 

Lj  1  =  N  T  —  L 
N=M1+1 

J  2  =  L  N  T  -  L  *  (  L  - 1 )  /  2 

J1=J?-N1 

J  3  =  J  2  -  1 

DO  4  I=J1,J2 

N  I  =  N  +  I 

N I  1  =  H I  -  I 

11=14-1 

I N  F  J  =  I  .  N  P  .  J  2 
TP=-L./MI,1) 

DO  2  J  = I  1,01  1 
T FMP  =  TP*A( J ,  1  ) 

DO  1  K  =  2  ,  n; 

A(JfK_l)=A(JfK)  +TEMP*A(  1,0 

1  CONTINUE 

I  F  (  I  ME  J  )  A  (  J  ,  N  )  =TE  J 
D(  J ) =0 ( J ) +T  E MP4 D (  I  ) 

2  CONTINUE 

IF (  . NOT . IDE J  )  GOTO  5 

IF  (  I  .ME  .  J  I  )  A  (  N  I  1  ,  N  )  =  A  (  N  I  1  ,  N  )  4- 1 . 

IF  (  I  .EG. J2 )  TP=2.*TP 
DO  3  K  =  2 ,  ' 1 
A ( N  I  , K - 1  )  =  A (  I  ,  K ) *TP 

3  CONTINUE 

IF  (  I  .  N  E  .  J  1  )  A  (NI  ,N1  )  =A  (M  I  ,  '!!  )  4- 1  . 

IF  (  I  .  EG.  J  O  A(  N  I  ,N]  )  =A  (  NI  ,  1)4-1. 

A  (  N  I  ,  '  J )  =  T  p  -  4  . 

E(  NI  )=b(!4I  )+TP*rt  (  I  ) 

4  CONTI  N  LJ  E 

5  RE  T  U  TN 
END 


. 
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C  LAPLACE'S  EQUATION  IN  AM  L-SHAPED  CHANNEL  IS 

C  APPROXIMATED  IV  THE  N I  ME  -  P  MI  -NT  FORMULA.  T  rlE 

C  RESULTING  SYSTEM  OF  EQUATIONS  IS  SOLVED  oY  TrlF 

F  GAUSS- SE I  DEL  Y E T H U D . 

C 

DIMENSION  A  (  1  5~ , 25 ) 

R  E  A  P  (  5  ,  1  )  M , N , I TE R , FRR 

1  FORM  AT (3  1 1^, FIF.C ) 

M 1  =  O  +  1 

M2=Vf 2 
N 1  =  N  +  1 
N2=M+2 
N  M  =  N  2  -  M  l 
3  B  =  N  L 

c 

1  •  INITIAL  GUESS  IS  ZERO. 

A  {  1  ,  l  )  =  C  . 

DP  2  J=1,m 
A  (  1  ,  J  +  l  )  =J/3:i 

2  CONTINUE 
All,  -1 2  )  =  1  . 

M  E  =  '■  1 

PP  4  I  =2, M2 
DO  3  J=1 , ME 
A (  I , J ) =n  . 

3  CONTINUE 

IF (  I  .LE  .NY)  A ( I ,02 )  =  1 . 

IF(  I.GT.  I’M  ■  -  =  r-  E-l 

4  CONTINUE 
C 

C  GAUSS-SF IDEL  ITERATION, 

r 

NC  = 

F  E  R  P .  0  A  =  r  . 

ME  =  M 1  -  1 
NC=NC+1 
DO  9  J  =  2 , M 1 
M  E  =  M  E  -  1 
DO  7  1=2,  *- 

T  E  M  P  =  ^  .  r  5  *  (  4 . 4  (  A  (  I  ,  J  -  1  )  +  A  (  I  ,  J  +  1  )  +  A  (  I  -  1  ,  J  )  +-  A  (  I  +  1  ,  J  )  ) 
1  +  A  (  I  +  1  ,  J  +  1  )  f  A  (  I  +  1  .  J  -  1  )  +■  A  (  I  -  1  ,  ,J  +  1  )  +  A  (  I  -  I  ,  J  -  1  )  ) 

E  R  R  0  A  =  A  M  A  /X  1  (  E  ;kOR,ABS(  (  TF  M  P- A  (  I  ,  J)  >  ) 

A  (  I  ,  J  )  =  T  E  o  ° 

7  CONTINUE 
ME  1  =  ME  + 1 
'  1 P  2  =  M  E  +  2 

TEMP= ( 4 . o (  A ( Y E 1 , J - L  )  + A ( ME  I  ,  J  +  l  )  +  A( ME, J ) +A( YE 2, J  )  ) 

1  +  A  (  y  E2  ,  J  -  1  )  +  A  (  1 F  ,  J  -  I  )  W  ME  ,  J  +  1  )  )  /  1  9 . 

E K  R  0 R  =  AM  A  X  1  (  F  0 n OR,  ANSI  (  T  V  M  P -  A.  (  0 E  1  ,  J  )  )  ) 
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A  (  4  E  1  ,  J  ) 

= 

TE 

p 

TEMP-'  .9 

5 

*  ( 

Q 

v- 

•  -|' 

( 

A  ( 

M 

{■  2 

,  j 

- 

1  ) 

*-  A  ( 

'■'F  1  ,  J  } 

1  +  2.  *  M  -'  E 

»  J 

- 

1  ) 

+ 

A  ( 

M 

P  1 

?  j 

f 

1  ) 

4-  A  ( 

;  ■  E  +  3  >  J 

errhr= ae 

A 

X  1 

( 

c  E 

r . 

"  1  ' 
<w'  r 

» 

(A  p. 

S( 

( 

TE 

P  - 

A  l  E  2  t 

A  (  4  E  2  ,  J  ) 

= 

Tz 

M 

P 

9  CONTINUE 

l  F (ERROR 

• 

l  : 

« 

C.  Q 

) 

/*> 

\j 

OT 

0 

1 

I  F ( NC.LT 

• 

IT 

r 

R  ) 

GG 

T 

0 

S 

v,R  I  T  E  (  6  , 

L 

r ) 

1  ^  FOR  M  AT (  1 

on 

C  ] 

f  i 

!S 

VE 

s 

NC 

r* 

'  ) 

\‘E  T  TE  (  6, 

1 

2  ) 

•\c 

t 

r~  r 

r< 

n  r 

1?  FORTUII 

1 

i 

’ '  r 

<— 

t 

• 

5  ) 

M  r  =  m  ? 

on  14  i= 

1 

»  m 

p 

WR I T  E ( 6, 

l 

1 ) 

( 

A( 

T 

»  J 

) 

* J 

-  i 

J 

'  1 F 

) 

13  FD?*  AT  (  1  X,  1  3  FK-  .  5  ) 

I  F  (  I  .  G  t »  'l )  v  3  =  4  1 —  1 
CONTINUE 
STOP 
END 


) 

- 1  >  ) 
J  )  )  ) 


14 
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C 

c 

c 

c 

c 


c 

c 

r 


LAPLACE'S  EQUATION  t 
IS  APPROX  1-1 A  THU  6Y  Ti 
GAUSS  I  AN-EL  I  ,11  NAT  I  UN  IS  USED 
RESULTING  SYSTEM  UP  EQUATION; 


AN  L  ~  S  LI  A  PEE)  C  H  A  N  U  F  L 
N  I  ME-  P  E  I  NT  FORMULA. 
TO  SOLVE  THE 


U  I  E  N  S  I  ON  '  (  54*  ,45)  ,  (  54-r  ) 

CO  A i-0 )H  /  HLK  /  A  f  A 
1  FDR M AT (211') 

I 

U  O  —  V  -  1 

NM=N-v+l 

J6  =  M-  T  -  0  ^  -1  /  2 

J  5  =  J  r  -  1 

J  4  =  J  6  -  2 

J  1  =  JiS-NM 

J  2  =  J  1  +  1 

J  3  =  J  I  +  2 


THE  RIGHT-HAND  SID-  3  IS  GENERATED. 

DO  2  1  =  1  ,  J 1 
B  (  I  )  =  . 

?  CONTINUE 
BB = M+ 1 

I  =-  N 

DO  3  J=1  ,  * 

I  —  I  +  ,i  —  J  +  P 

3(  I  )  =-6. *J/BB 

3  CONTINUE 

B  (  J  2  )  =  -  (  II.  4  '  R  .  )  /  D  r  - 
On  4  I  -  J  3  »  J  4 
B  (  I  )  =  -  4  . 

4  CONTINUE 
B  (  J  5 )  =  -  5  . 

3  (  J  6  )  =  -  1  . 


C  THE  FIRST  BLOCK  IS  GENERATED. 

r 

DO  6  I=i,N 
00  5  J=I,N 
A  (  I  ,  J  )  =  A  . 

5  CONTINUE 

A  (It  I 

IF  (  I  .  NE  .  N  >  A  (  I  t  I  +  .1  )  =  4. 

IF (  I  .NE  .  1  )  A(  I ,  I-I )  =  4. 

6  C  J  N  T  [  N  U  E 

A  (  N  "  ,  N  ‘  )  =  -  I  -3  . 

A  {  N  T  N  R  )  =  3  . 

r 

i 

C  THE  FIRST  3-1  BLOCKS  ARE  DEC  CHI  PO  S  F  D . 


. 
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r, 

PO  7  K.  —  1  »  '1’~ 

CALL  DECO  0 ?  (  K  »  N  ) 

7  CONTINUE 
C 

C  THE  :  T  *  T  H  BLOCK  IS  CECOOPQSED. 

r 

■v.  F  =  N  X 

DO  L"  I  =  J  2 1  J  5 
11=1+1 

TP  =  -1.  / A  (  I  T  1  ) 
on  9  J  =  I  1  f  J  6 
TE  f'/  p  —  y  p *  A  (  j  ,  I  ) 

DO  8  K=2,.\E 

A  (  J  ,  K-  1  )  =  A  (  J  ,  K  )  +  T  r  ■  P  -  A  (  I  ,  K  ) 

8  CONTINUE 
o(J)=B(J) +TEOP*B (  I  ) 

9  CONTINUE 
ME  =  NE- 1 

ln  CONTINUE 

r 

C  BACK-SUBSTITUTION  jN  THE  OTH  hLT-CK. 

C 

B(  J  6  )  =  :-  (  J  o  )  /  A{  J6 , 1  ) 

i  -t  =  f..:  ■  5  -  j 
00  12  J=1,NH 
I=J6- J 
NE=NE+1 
TEOP=3 ( I ) 

DO  II  K=2,NE 

T E M P  =  T  E M P - A (  I  ,  K ) *8 ( I +K-1 ) 

I]  CONTINUE 

B  (  I  )=TE'-,P/  A  (  I  ,  1  ) 

12  CONTINUE 


XK-SUBSUTUTI 


~!M 


T  HI 


PAINING 


—  i 


b  L  0  Cn  S  . 


NM  =  M  ■'+  L 
00  15  L  =  1  r  T" 

N:-:-N  '+1 


1  8 


r-.j  p  =;V  y\ 

no  in  j  =  i , 

I  =  J  2  -  J 
T  E  v.  P  =  S  (  I  ) 

I  F  (  J  .GT.2)  T  .-■•1P  =  TE‘,iP  (  I  +  NE) 
IF  (J.  =  0.2)  N  E  =  N  E  + l 
[)  0  13  K  =  2  »  N  E 

y  e  :1  p  =  T  r ;  i  P  -  A  (  I  f  K  )  *  3  (  I  +  K  - 1  ) 

CONTINUE 

B  (  I  )  =Tt  OP/  0  1,1) 


. 


o 
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14  CONTINUE 
J?  =  J  2-!U 

16  CONTINUE 

OUTPUT  OF  P2 SUITS. 

MM=  M  +  2' 

N2=N+2 

\  ;  pi  -  ^ 

Jl  =  n 

00  16  J  =  1  ,  M2 
A  (  1  ,  J  >  =  0  . 

14  CONTINUE 
DU  ID  I=l,o 
11=1+1 

A  (  I  1  ,  1  )  =  +  I  /  3  3 
DO  17  K=1,NM 
M  I  1  ,  K  +  1  )  =  3  (  J  1  +  K  ) 

17  CONTINUE 
JUJU  U 
NV=NN-1 

18  CONTINUE 
N  vi  -  N  ■ ;  +  1 

DO  19  N  = 1 , NM 
a  (  MM , K )  =  1  . 

19  CONTINUE 

DO  ?!  J  =  1  ,  N  2 
IF(J.GT.NO)  -u;U'-l 
WRITE!  s,  D'M  (  A(  l  ,  J  )  ,  1=1  ,  ■!  1  ) 
or  FUR NAT ( 1  A, 13  FI T. 5) 

21  CONTINUE 
STOP 
END 


. 
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SUB R [JUT  I N E  0 5 CD M 9  (  L »  NT  ) 


GAUSS  I  AN- FI. 
THE  L'TH  l', L 
B  L  u  C  K  S  I  Z  F 
APPROXIMATE 


I  ■'  I  NAT  I  ' j N  R OUT  I  ME  F G R  DEC  G r  1 P p S  I 
GCK  Jf  THE  L- SHAPED  CHANNEL. 

IS  H.  LAPLACE’S  EQUATION  IS 
0  B v  THE  h I ME-PUI  .NT  FGROUlA. 


A  i 


DIMENSION  M  54^  ,^5  )  ,3(  5^-  ) 
LOGICAL  I  L  T  J 
CD MOON  /  3LK / A , R 
N  0  =  N  T  -  L 
N=  Np  + 1 
N  1  =  U  +  1 

J  2  =  L  -N  I  -  L 1  (  L  -  1 )  /  2 
J  1  =  J  ^  ‘ 

J3= J  2-1 
J  4  =  J  2  -  2 
J  5  =  J  2  -  3 
J6=  J  1  +  1 


ELI  M  I  N  Jv  T  I  L!  I  OF  THE  E  I  R  S  T  C  0  L IJM  N  . 

I  1  =  J  1+1 
N  I  =  J  2  +  L 
N I  1  =  J2  +  2 
A.  (  J  1  ,  i  I  )  =  + . 

TP  =  -1 . /A ( J!  , 1 ) 

DO  2  J  -  I  I  ,  J  2 
T  F  -A  P  =  TP* A ( J , 1 ) 

DO  1  K  =  2,N! 

A  (  J  »  K  -  1  )  -  A  (  J  j  K  )  +  T  E  P  *  A  (  J  )  ,  K. ) 

C.  0  N  T  I  N  U  F 

A(  J  ,  )  =  4 . 4  r  E  -,P 

A  {  J  ,  a  )  =  T  E  ■’  p 

3(  J  )  =3  (  J  )  f  TE  ■*  P ''  B  (  J  1  ) 

CO i\  T  I M  U  l 

A(  U,N)  =  A(  II  ,  N)  +  l  . 

A  (  I  I  ,  H  1  )  =  A  (  II,MH4. 

A  {  I  1  +  1  ,  N 1  )  =  A  (  I  1  +  1  ,  '  i  I  )  +  1 . 

T  E  0  P  =4 . 4 T  P 

A  (  N  I  ,1  )  =  T  E  i  ”■  P  4  A  (  J  1  ,  2)  +  l. 
no  K -3  j  0 

A  (  N  I  »  K  —  1  )  -  T  -  P  4  A  (  J  1  t  tA  ) 

CDf1 TINUE 

A(MI  ,M  )  =  4 . 4  T  C  V!  p  _  2  ~  . 

A  (  Nil  » N  1  )  =  T  -  P  +  4 . 

3(  N  I  )  =  -,  ( >JI  )  +TENP4-3  (  J  1  ) 

A (Nil,!)  =  T  P  4  A ( J1  , 2 ) +4. 

A ( H T 1 , ? ) =TP*A( J 1  ,  3  )  +  1 . 

DO  4  K=4,N 


' 
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MMI  1  ,  K  —  1  )=TP*A( J1  t  K  ) 

4  CONTINUE 

A  (  M  i  1  ,  fv  )  =Tc  .'•!  P  +  4  . 

A( NI l »  Nl  )  =  TP  -?•  . 

B  (  N  1  1  )  =  3  ( -4 1  1  )  +  T  P  *6  (  J  1  ) 


o  cj  n  i  =  j  -  ' ,  j  2 

n=n-i 

TP  =  -1./A(  1,1  ) 

IF (  I .ME. J2  )  GOTO  5 


5  M I  =  M  -t- 1 


MI  1  =M 

I  +  1 

I  L  T  J  = 

I  .  L  T 

.  j? 

DC  7 

J=  I  1 

t  ii 

T  P  M  p  - 

T  F  *  A 

(  j  , 

1  ) 

DO  6 

K  =  2  , 

M  1 

A  (  J  ,  \ 

-1  )  = 

A  (  J 

»  K 

)  +T 

rp; 

•IP 

* 

CONTI 

M  U  F 

IF (  I L  T  J  ) 

a  j 

t  M 

] 

) 

= 

T 

EM 

P 

F  (  J  )  = 

ri  (  J  ) 

+  T  F 

P 

* 

!_• 

( 

I 

) 

COM  I 

NUE 

I F  (  .1 

OT  .  I 

LTJ 

) 

V  7 

p 

T 

i 

0 

i 

A  (  I  1  , 

Ml  )  = 

A  (  I 

It 

1  '4 

1 

) 

+ 

/ 

• 

A  (  I  +  2 

»M  ) 

=  A  ( 

I  + 

1 

i 

I ; 

l 

)  + 

1 

A  {  N  I  , 

a )  = 

A  (  -I 

I  , 

<  * 

£ 

) 

+ 

4. 

IF  (  I  . 

F  Q. .  J 

A  ) 

TP 

~ 

? 

• 

Tp 

A  (  N  I  1 

»  1  )  = 

T  ^  * 

A  ( 

I 

i 

2 

) 

+  4 

• 

A  (Nil 

»  ?  )  = 

T  ?  * 

A  ( 

T 

f 

•*} 

) 

+  1 

• 

DO  ft 

li 

N 

A  (  N  1  1 

»  K-l 

)=T 

p  A 
r 

\ 

.  A 

( 

T 

I 

» 

K) 

CONTINUE 

A  (  N  I  1 

»  N  )  = 

TP* 

A< 

I 

i 

N : 

1 

)  + 

A 

A  (  N  I  l 

t  N  1  ) 

=  T  P 

.X- 

a 

• 

IF  (  I  . 

E  Q  .  J 

5  ) 

A  ( 

■'  i 

i  i 

» 

N  1 

) 

I  F  (  I  . 

N  F  .  J 

4  ) 

GO 

TQ 

o 

A  (  N  l  1 

»  1  )  = 

A  (  N 

I  1 

J 

) 

i 

A  . 

A  (Nil 

a  )  = 

A  (  N 

1 1 

t 

N 

) 

+ 

4. 

B  (  N  I  1 

)  =  b  ( 

M  I  1 

)  + 

T 

p 

=!- 

3  (  I 

) 

1 ^  COMTIMHE 
P.FTU1N 
FND 


. 


APPENDIX  IV 


PROGRAM  LISTING  TO  SOLVE  THE  CANAL  PROBLEM 
IN  THE  PHYSICAL  PLANE 


A  Fortran  IV  program  listing  to  solve  the  Canal 
Problem  5.1  in  the  physical  plane  Is  included  in  this 
section.  The  method  used  is  described  in  Section  5.2e 
The  subroutines  SDPSI  and  SDPHI  ascertain,  by  the 
use  of  the  point-Gauss-Seidel  method,  the  values  of 
\p  and  4>  ,  respectively,  at  the  grldpoints  of  a  region 
which  is  determined  by  a  particular  choice  of  the  free 
boundary.  The  subroutine  PRINT  may  be  used  to  print 
the  values  of  and  <f>  ,  FREEX  and  FREEY  determine 
the  x-ceordinate  on  the  free  boundary  for  a  particular 
choice  of  Y  ,  and  the  y»coordinate  on  the  free  boundary 
for  a  particular  choice  of  X  ,  respectively;  while  CR 
calculates  the  partial  derivatives  by  use  of  differentiation 

p 

formulae  of  0(h  )  (see  Appendix  I),  in  order  that  the 
Cauchy-Riemann  equations  may  be  verified* 


. 

■ 
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REAL 

PH  I 

(  9 

vEi 

J 

Q9 

)  ,  P  S  I 

( 

gg 

f  99) 

COCOON  C 

1, 

c 

') 

t 

PS  I  ,  P 

H 

U 

H  f  C 

c 

c 

FREE 

3  0  U 

NL' 

-K 

R 

Y 

PRUBL 

C 

M 

r 

1 9  READ 

(5.1 

) 

P  H 

I  C  ,  u  , 

c 

?  A 

?  b  t  i  i  »  L  F  k  ’ 

1  "■  "  F  0  P.  *•! 

U  (7 

FI 

• 

R  J 

Cl  =  ( 

:  -  a  )  / 

■!< 

7 

C  2  =  A 

K1  =  1 

+  (  0- 

C  )  / 

H 

+ 

1  .  b  -  F 

K?=  L 

-C/h 

+ 

i 

• 

E  - 

3 

r~ 

r 

IN I T  I  A L 

GU 

- 

s 

S 

c 

J=1 

X  =  C 

L 

I  F  (  J 

.  L  E . 

i/  i 

•  \  i 

ij  J 

T  0  3 

I  F  (  J 

.  L  r.  . 

K2 

> 

GO 

TO  2 

IF  (  X 

•  ij  T  « 

p 

+ 

H/P 

)  GOTO 

Q 

O 

PS  I  ~ 

=  X 

/C 

? 

PSI  '• 

=  ( 

PSI 

_  7 

)  —  PSI 

p 

+ 

x 

°H  I  ' 

—  1  • 

G  C  T  r 1 

4 

2 

PS  I  R 

=  1  . 

PM  I  " 

=  X  -  P 

HI 

f* 

/ 

GOT1'’ 

4 

3 

PS  I  ° 

=  ( 

(  X 

- 

? 

*C 

)  —  A  + 

r-  o, 
^  '  • 

C ) / ( P-C ) 

PH  I 

=  Phl 

c 

4 

1  =  1 

y  M  = 

F  RE 

E  Y  ( 

X 

} 

PS  I  ( 

1  ,  J  ) 

- 

p 

SI 

PH  I  ( 

1  »  J  ) 

— 

p 

HI 

5 

1  =  1  + 

L 

Y  = 

(  1-1 

)  *. 

H 

IF  (  Y 

.L  T  . 

Y  i 

) 

u 

OT 

ij  6 

CON  S 

-  v 

/Y 

4 

PHI  ( I  , J  1 

= 

( 

l  - 

C  -JNS  » 

-  1 

P  H  I  ~  +  Y 

PS  I  ( 

I  ,  J  ) 

- 

( 

( 

C  00  s  - 

*7 

)  *! 

CO NS -CON 

GOTO 

5 

6 

DO  9 

<=  I  t 

7  7 

PSI  ( 

1 ,  J  ) 

"A 

PH  I  ( 

X  t  J  ) 

( 

l  - 

K  )  —  H 

9  CONTINUE 

J=  J  + 1 

X  =  C  +  (  J  -  1  )  H 

GOTO  I 

c 

C  SOLUTION  TO  FREE  LU'JUiNOARY  PR.03LEY 

C 

0  CALI  S  0  P  p  I  (  l_  K  R  ?  K 1  t  x  P-  ) 


' 
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CALL  S D P H  I  ( G R R , K 1 , K Z ) 
CALL  PPpJT 
CALL  C  r'  {  A  ) 

GOTH  19 
END 
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subroutine:  s  op s  i  i  e L> ,  k  i  ,  kz  ) 

REAL  P  3  I  (  u  9  »  9  9  )  T  PHI ( v9  T  °9 ) 

C  :•  4  NON  Cl  t  C  2  ,  PS  I  ,  PH  I  »  hrC 

d 

C  GAUSS- Sc  I  DEL  ITERATION  FUR  PS  I 
C 

T  =  C2-H/2 

M  =  1-FREEY ( C) / H  +  1  .  E  -  o 
Dn  9  K  = 1 i 
FR  1  =0 
r 

C  BOUNDARY  CONDITIONS  ON  CA 

/■" 

KK1  =  Kl  -  1 
on  1  J  =  2 1  K  K 1 

TEMP  =  .25 M PSI( 1 , J+1 )  +  PSI(1,J-1)  +  2*PSI(2,J)) 

ER1  =  AM  AX  1  (ER1,  (ALS  (  (  TEMP -PS  I  (  1  ,  J  )  )/Ttf‘P)  )  ) 

PS  I  (  1  t  J  )  =  TF/’P 
!  CONTINUE 
C 

C  BOUNDARY  CONDITIONS  ON  UA 

r 

J  =  K  2  +  1 
X  =  H 

2  TEMP  -  .  2  5  (  P  5  I  (  1  *  J  +  I  )  +  ^SI(1,J-1)  +  2*PSI(?tJ)) 

EP.l  =  AM  AX  1  (  ER1  ,  (  A  o  S  (  (  TFMP-PSI  (  1  ,  J  )  )  /Tfci-.P  )  )  ) 

PS  I  (  l  ,  J)  -  T  E  N'i  P 
J  =  J  +  1 
X  =  X  +  H 

I  F (  X  .  L T . T  )  GOTO  2 
C 

C  INTERIOR  POINTS 
C 

DO  8  I  -  2  ,  i ' 

Y  =  (  1  -  I  )  ”H 

X  N  -  F  R  F  c  X  (  Y  ) 

N  =  K2  '+  XN/H-i 
IF(N.LT.Z)  GOTO  8 
DO  5  J  =  2  ?  ^ 

X  =  c  +  (J-l)AH 

Y  L  =  (  Y  -  F  R  E  F  Y  (  X  )  )  /  H 

I F ( YL . IT . 1 . )  GOTO  3 

TEMP  -  .  2 5 *  (  P  5  I  (  I  +- 1  ▼  J  )  +  P  S  I  <  I  - 1  ,  J  )  +  PSI(I,J+1)  +  P  S  I  (  I  ,  J-  1  )  ) 

GOTO  A 

3  TEMP  =  (  (  YL-  1)  *PS  I  (  1-2  ,  J  )  /  (  VI. +  2)  -  2*  (  YL-2  )  *PS  I  (  I -1  ,  J  )  /  {  YL+1  ) 

1  ,+PS  I  ( I  , J  +  1  )  +  PSI  (  I  » J-l  )  ) *YL/( Y L  +  3 ) 

4  EKl  =  AMAX1  (  ER1,  (A3S(  (  TENP-PSI  (  I  »  J)  )/Ttr.P)  )  ) 

PS  I  (  I  , J  )  =  TEMP 

5  CONTINUE 

X  =  C+N*H 
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l  ? 


7 

3 

1  1 
9 

lr 


XL  =  (XN-XU/H 

YL  =  ( Y-FRFEYt  X)  ) /M 

J  =  M  +  1 

IF  (  I  .EL.  2  )  GOT.)  1  7 

I  F ( Y L  .  L  T  .  I .  )  GOTO  3 

TEMP  -  (  (XL— 1  )  x-psi  (I  ,  J  -  2  )  /  (  X  L  +  2  )  -  2*{Xl-?)*PSI  (  I  ,  J-1)/(XL*1) 

1  +  P5I(I+1,J)  +  H  S  I  (  I  -  1  t  J )  )  *  XL/ (XL +  3) 

GCT  H  7 

TEFP  =  (  2  *  (  2  -  Y  L  )  ":JS  I  (  I  -{  .  J  )  /  (  Y  L  +  1  )  +■  (  YL- I  )  YPS  I  (  I -2  ,  J  )  /  (  YL  +  2  ) 

1  +  ?*( 2-XL) *PSI  (  I  , J-l  ) / ( XL  +  1  )  +  (XL-I)yPSI  (I  , J - 2  )  /  (XL+2)  ) 

2  Y x L ' : Y L /  ( XL Y (  3-yl J  +  Y L * ( 3- XL  )  ) 

ER1  =  AiMAXI  (  F  x  1  ,  (APS  (  (  TUP-PSi  (  I  ,  J  )  )  /  T  F  iv  P  )  )  ) 

PS  I  (  I  ,  J  )  -  TUP 
CONTINUE 

IF(E’TR.LT.ERl)  GL  TO  Q 
W  R  I  T  E  (  6  »  1 1  )  K  t  E  R 1 

FORMAT (  1  PSI  ITERATIONS',  15,  •  ERROR*  ,  E  I  b . 5  ) 

RETURN 


CONTINUE 

WP I TE(6, U ) ER1 

F  C  Y  M  AT  {  *  PSI  uO  E  S  lOT  C  J N  VCR  G r- 
RETURN 


to  ) 


CND 
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SUBk  1UTINF  SDPHI  (  ERF  ,K1,K2) 

REAL  PS  I  ( 99 , 99 )  ,  PH  1(99, 90 j 
COMMON  Cl, CP,  PS  I  , PHI , H  ,  C 
C 

C  GAUSS -SEIDEL  ITERATION  FOR  PHI 
C 

M  =  1-FREEY  (  C  )  / H 
DO  9  K -  1  ,  1^0 
E  R  1  =  ^ 

r 

C  EG  UN  GARY  COHO  I  T  I  rUS  UN  DU 

C 

J  1  =  K  l  +  I 
J  2  =  K  .  -  1 
DO  1  J  =  J  1 ,  J  2 

TEMP  =  .  25*  (  PH  I  (  ]  ,  J  +  1  )  +  P  H  I  (  1  ,  J  -  1  )  +  2-PHI  (2,  J)) 

ERl  -  AM  AX  1(  ERl,  {  A  P.  S  (  (  TEMP-PHI  (1  ,J)  )/T  EM  P  )  )  ) 

PHI  (  I  ,  J  )  =  TE'-'P 

1  CONTINUE 

DU  3  1=2,  -1 
Y  =  ( 1 -I ) oh 

C 

C  b 0  UN  l)  A  2  Y  C  0 N D  I  T  I  ON S  0 N  C  i 

C 

IF  (  I  .  NE  .  ! )  G  j  TO  2 
YN  =  FRELY(C) 

YL  =  (Y-YM1/H 
I F ( AGS(YL) . L  T .  R  .  E  -  5  ) GO  TO  3 

TEMP  =  (  ( YL-1) *PHI  (  I -2 , 1  ) / ( YL  +  2) -?*( YL-2 ) *FHI < I -1 , 1 ) / ( YL+I  ) 

1  +  2*PUI  (  I  ,  ?)  )*YL/(YL*  *>  F  6* Y  N/ (  (  Y  L+  L  )  *  l  YL  +  2  )  *  (  Y  l  O  )  ) 

GOTH  13 

2  TE  IP  =  . 29  0 (PHI  {  I -1  , 1 )  +  PHI  (1+1,1)  +  2*PH  I  (  I , ? )  } 

1?  E^l  -  AYfAXl  (  EF1  ,  (  ABS  (  (  TEMP-PHI  (  I  ,  1  )  ) /T  EMP  )  )  ) 

PH  I  (1,1)  =  TEMP 

r 

C  INTERIOR  PCI  iTS 
C 

XM  =  FREEX(Y) 

N=  K  2  +  <N/H  -  1 
I F ( N . L T . 2  )  GOTO  8 
DO  5  J  -  2  ,  N 
X  =  C  +  (  J-l  )  H|| 

YN  =  FFEEY(X) 

YL  =  (Y-YM/H 

IF (  Y L . L  T .  1 .  )  GOTO  3 

TEMP  =  .  2U  M  PHI  (  I  +  1  ,  J  )  +  rj ! !  I  (  I  -  1  ,  J  )  +  PHI(I,J+1)  +  PH  I  (I,  J-l)) 
GOTO  4 

^  TEMP  =  (( YL-  1)  *PH  I  ( I -2  ,  J )/( YL  +  ? )  -  2 4 ( YL - 2  )  *PH I  (  I  -  1  ,  J  )  / ( Y L  +  1  ) 

1  +  PH  1(1,  J  +  l  )  +  PH  I  (  I  ,  J-l  )  )  - v  L  /  (  \  L  4-3  )  +  6  -  Y  N  /  (  (  YL+1  )  4  (  YL  f2  )  4  (  YL  +  3  )  ) 

ERl  =  AM  AX!  (  ERI  ,  (  AOS  (  (  TEf'P-Phl  (  I  ,  J  )  )  /  TEMP  )  )  ) 


4 


' 

A 
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PH  I  ( I , J )  =  TEMP 

5  CONTINUE 
J  =  N  +  I 

X  =  C+'V*H 

YN  =  FPEEY(X) 

YL  =  ( Y - YN ) / H 
X  L  = { XN-X ) /H 
I  P  (  I  . E  v  .  2  )  GOTO  12 
IF  (  YL  .  lT  .  1 .  )  GOTO  6 

12  T  L  h  P  =  (  (  XL-1  ) -PHI  (  I  ,  J-2  )  /  {  XL  +  2)  -  2  *  {  XL  -  2  >  *Pri  I  (  I  ,  J  -  1 )  /  {  X  L  +  1  ) 

1  +  PHI  (  I  +1  ,  J  )  fPHI  (  1-1  ,  J)  +  6 Y  /XL/(XL+I)/ (XL+2) )*XL/( XL+3) 

GOTO  7 

6  T E  M  P  =  (  (  Y  L  -  1  )  * D H  I  (  I  - 2  »  J  )  /  (  Y  L  2  )  +  2*  {  2-  YL  )  *PH  I  (  I  -  1 ,  J  )  /  (  Y  L  +  1  ) 

1  +  (XL-1) *PHI ( I , J-2) /( XL  +  2)  +  2*(2-XL)*PHI  (  I  , J-L)/ (XL+1) 

?  +  6*(YM/(  (  YL  +  1)*(YL-H2)*YL)  +  Y  /  (  (  XL  +  I  )  *  (  X  L  +  2  )  *XL  )  )  ) 

3  *XL*YL/(XL*(  3 - Y L ) + Y L * ( ? - XL )  ) 

7  FP1  =  AMAX1  (  F=<  l ,  (  3bS  (  (  TEL.P-PHI  (  I  ,  J  )  )  /TEL  P)  )  ) 

PH  I (  I  , J )  =  T  pvp 

3  CONTINUE 

I  F  (  t  <  P. .  L  T  .  -  R  1  )  GG  TP.  9 
W  R  I  T  E  (  6 , 1  1  )  X  T  F  7  1 

]  1  F  C  k  M  AT  (  *  9  Hh-I  I  TEL  AT  IONS  '  ,  15,  •  F  R RO 3  *  , E 1 5 . 5 ) 

RETURN 

9  CONTINUE 

WP  1  Tf  (  6,  lr  )  F  R.  1 

1  ^  FORMAT  (  *  pill  ljuES  NOT  CONVERGE  F 1 .  6  ) 

RETURN 

END 


190 


SUBROUTINE  P  R1NT 

REAL  P  S  I  (  J4 , 99  }  ,  Phi  (  9  p  ,  c-  9  )  ,  X  (  9  9  ) 

CG M M0N  Cl,C2,PSI»PhI,H#C 
xm  =  c 

DO  2"  J  =  2 , 9  h 
X  (  J  )  =  X  (  J  -  1  )  +  H 

CONTINUE 

DO  3  K  =  1  r  q  p  r  12 

T  =  C  +  H'MK-l) 

I  F ( T  .  G  T  .  C  2 )  RETURN 
M  =  1  -  F  R  E  F  V  (  T  )  /  H  +  1  .  F  -  3 
W  R  I  T  E  (  6 , 1  0  ' )  C 1  ,  C  2 

1^'  FORMAT ( »  1  FLEE  bOUNOAR  Y  X  =  Cl  -  Y**2 

1  •  C  2  =  •  ,  F  1  .  6  ) 

WR  I  T (  6  ,  1  n  l  ) 

l"'l  F 0 0 \  T  (  *  ~  PS  I  TABLE'  ) 

Y  =  -H 


1  ~  /v 


1 


1  A  3 


l'~  5 


i 

i 


~> 


no  i  i=i,  4 
Y=  Y  +  I 

N=  1  +  (  r  R  E  E  X  (  Y  )  -  C  )  /  H  +  1  .  F  -  8 
IF ( N .GT. K+l  I  ) N  =  K  +  I  1 
I  F  (  I  .  E  Q  .  1  )  v.  p  I  T  E  {  6  ,  1  ''  4  )  (  X  (  J  )  »  J 

FfiKN  AT(3X»12(4X,F6.2)/) 

UR  172(4,  )  (  PS  I  (  I  ,  J  )  ,  J  =  K  ,.i  ) 

CONTINUE 

I  F ( 4  .  G  T  .23)  GOTO  14 
WR I TE ( b » 1  3 ) 

FO  K v  AT (  *  7  PHI  TAbLE*  ) 


GO  T3  15 

X  R  I  T  2  (  6  t  1 ~  ''  )  C  1 »  C  2 

W  R I T  E ( 6 ,  1^5) 

FnR/'3T('p  Pm  I  TABLE’) 

Y  =  -H 

DfJ  ?  I  =  1  ,  ’ 

Y  =  Y+H 

M=  1 4-  {  F  R  E  E  X  (  Y  )  —  C  )  /  H  +  1  .  E  -  3 
IF  (N  .GT  .  Kt-11  )N  =  K+1  1 
r  F (  1.63.1)  W  P  I  T  r ( a  f  i  -  4  )  ( X ( J  )  , J 

WR.  I  T  E  (  6,  1  '2  )  (  PH  I  (  I  ,  J  )  ,  J  =  K  ,N  ) 
FuRN  AT  (  5  X  >  1  2  F  1  ",  6  ) 

CCGT  INUE 


2  CONTINUE 
RETURN 
END 


K ,  N ) 


K ,  N  ) 


+■  C  2  *  o  1 


'■-> » 


' 
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SUBROUT INL 
D  INF  US  I  UN 
CnUR.JN  Cl, 
W  R  I  T  f  (  E  ,  7  ) 
FuKN  \T  (  •  0 


C  R  (  A  ) 

PH  I  (99,9U  ,PSI  (  99,9  9  ) 
n  2  ,  P  S  I  ,  P  H I  ,  H  ,  C 


DPHI/DX 


DPSI/DY 


0  P  H  I  / 


1  Y 


UPS  I  /  UX •  ) 


N= ( A-C ) / H 

H2  =? .*H 
DP  1  J  =2  , 


1  =  -F  ;E"Y  (C+U*(J-1  !  )  /  H 
DPIX=(PhI  (  r  , J  +  l ) -PHI  (  I  ,  J -  1  )  ) / H 2 
DSIY=(PSI([-1,J)-PSI(I+1,J))/H? 
DP  I  Y -  (  PH  I  (  T  -  1  ,  J  )  - 1 > H  I  (  I  +- 1  ,  J  )  )  / H 2 
D  S  I  X  -  (  P  S  I  (  I  ,  J  +•  1  )  -  P  S  I  (  I  ,  J  —  1  )  )  /  H  2 
WP.  I  T  c  (  6  ,  8  )  D  P  I  X  ,  i  S  I  v  ,  U  P I  Y  ,  US  I  X 
8  F PPM AT ( 4E2" . 4) 

1  CONTINUE 
Af TURN 


END 


REAL  FUNCTION  F-RFEY(X) 

REAL  PH  I  ( 00 , 09 )  , PS  I  ( 99 , oq  ) 

C 0 1"‘ M  DN  C  1  ,  C  2  ,  P  S  I  ,  PH  I  ,  H  ,  C 
FRF.EY  =  -SORT  (  A B S  (  (  X - C 2  )  / C 1  )  ) 
RETU R  N 
END 


APFENDIX  V 


PROGRAM  LISTINGS  TO  SOLVE  THE  CANAL  PROBLEM 
IN  THE  COMPLEX-POTENTIAL  PLANE 


The  following  pages  contain  Fortran  IV  program 

listings  to  solve s  by  the  point-Qauss-Seidel  and  the 

Gaussian  elimination  methods ?  the  systems  resulting 

when  Laplace’s  equation  for  the  Canal  Problem  5*2  in 

the  complex-potential  plane  is  approximated  by  the 

five-point  and  the  nine-point  formulae.  The  procedure 

that  is  used  in  each  case  is  described  in  Section  5.3, 

and  determines  the  y-coordinates  at  the  gridpoints  of 

the  region.  The  subroutines  X5  and  X9>  which  use 

numerical  differentiation  and  integration  formulae  of 
4  6 

0(h4)  and  0(h°)  ,  respectively  (see  Appendix  I),  can 
be  used  to  determine  the  x-coordinat es  at  the  gridpoint 
A  listing  of  Schechter’s  method  for  the  five-point 
formula  is  also  included. 


9$ 


o  o 
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C  SOLUTION  OF  THE  T3  AN3H  Oil  ME  0  CANAL  PROBLEM 

C  GY  THE  GAU33-SEI  )EL  -IF  THOO  .  LAPLACE’S  EQUATION 

C  IS  A  D  P  R  0  X  I  M  ;TlH  ' )  y  the  five-point  formula . 

T  Hc  SIRROR  IMAGE  IS  I  HP  L  F  ■'  Z  N  T  6  D  ALONG  Th- 
C  BOUN  )AKY  aih  THE  NORMAL  DERIVATIVE  SPECIFIED. 

REAL  X  (  1 1 , 4  1  )  ,  \  (  1  1  ,  4  I  ) 

COMMON  X  f Y 

READ  (5,1)  H-IU,  pH  I  b  ,  PH  I  C  ,  H  ,  E  RR  ,  I  T  E  P 

1  FORMAT (  5  F  1 ,  1  1  '  ) 

M=1  .  E-4-PHI C/H 

K 1  —  —  1  •  E  -  4  -f  1  .  +  (  PHI  3  -  D  M  I  C  )  /  H 

K  2  —  I  .  E  -  4  +  2  .  4  (  P  H  I  A  —  ?  h  I  C  )  /  H 

M  =  1  .  E  -  44  1  .  /  h 

NN  = N 4  1 

KK  =  K  2-K 1 -1 

TO-N-KK 

I  F  (  K  2  .  G  T  .  N  )  IO=I D - 1 

M  f-i  =  H  4  1 

C 

C  INITIAL  GUESS  IS  ZERO, 

r 

00  3  I-l,“". 

DO  2  J-1,NN 
Y  (  I  ,  J  )  =  D  .  r 

2  CONTINUE 

3  CONTINUE 


4 

0 

C 


DO  4  J  =  1 , KK 

K  =  K 1 4  J 

y ( wm, K ) = ( K-N\ ) *h 
CUNT  I  MU F 


G  A  U  S  S  - 


C  T 

i 


n-L  I 


T  I 


!  !  I 


INTERIOR  POINT 


NC  -  0 

5  ERROR-"1 . 

MC-NC+1 
DO  7  1=2,*-' 

DO  C  J  =  2  ,  N 

T E  !■' P  =  a  .  2  5 *  (  Y  (  I  4  1  ,  J  )  4 v  (  i  -  i  T  J  )  4  Y  (  I  ,  J  4 1  )  4  Y  (  I  ,  J-L  )  ) 

ERRO <= A, MAX  1  ( ERROR , AES (  T EMP-Y (  I , J  )  )  ) 

Y(  I  ,  J  )  =  T  E  ° 

4  CONTINUE 
7  CONTINUE 

GAUSS-SE  IHEL  I'TFRATIOM  OM  BODY.  PRINTS. 

DO  8  J - 2  »  ID 

K- J 


. 
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IF ( K .GT  . 

K1  ) 

K 

-  X  +  K 

< 

T  E  v  P  =  '  .  2 

5  * 

( 

y  ( r  y 

t 

K 

-  1 

)  +v 

(  f  . 

t  K  + 1 

)+2 . *Y( 

I7  R  K  0  A  -  A  M 

A  XI 

( 

c  '  1  o 

K 

» 

AB 

S  (  T 

£  p 

-  Y  (  v 

■'  *  K  )  )  ) 

ii 

'viT 

>- 

T  £  / 

P 

p 

CUNT  I NUE 

IF  (  E  RR  jl< 

.  LE 

• 

fp  p  ) 

c; 

i~j 

TO 

1  ' 

I F(MC  .LT 

.  I  T 

£ 

R  )  GO 

T 

0 

5 

WR I T - ( 6  » 

A) 

f7  G  R  v  u  <  • 

i\  G 

COiNV 

c: 

■  j  F 

NC  r 

•  ) 

1  n- 

WR ITlIc, 

11  ) 

F  P  F  n 

K 

■iC 

1  1 

FOF v A  r ( E 

y  ^ 

_  • 

o 

,  11 

5 

) 

WRI TE ( 6  ? 

12  ) 

(  ( V  ( 

I 

7 

J ) 

,  i  - 

1 1  ■ 

•1 )  ,  J 

=1 ,MN) 

i  2 

FOR  M A  T ( I 

X,  1 

1 

FI'  i 

CT 

) 

STOP 

END 
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c 

SOLUTION  T 

J  THE 

TRANSF 

CRN. ED  CANAL 

PROALE- 

c 

BY  GAUSS  I A 

1  EL  I 

M  I NAT  I G 

0  LAPLACE'S 

t  0  U  A  T  I  0  N 

r 

IS  A  P  3  R 0 X I 

M  A  T  E  0 

AY  THE 

F  IV  E-PO I  NT 

FORMULA.  T  h  L 

C 

Mi  I  n  P  OR  I  M  a 

AC  IS 

i-MPL  EM 

ENT  ED  ALONG 

THE  L GUN GARY 

c 

WITH  ThL  N 

URmAL 

0  L  K  I  VA 

T  I  V  L  S  P  E  C I  F I 

ED  . 

C  Tt  IF  JPPER,  TRI-OI  AGONAL  GA.ND  OF  WIDTH  N+l 

C  AFTER  GAUSSIAN  ELI ,  ’  Hi  A  T I  ON  IS  STORED  IN 

C  A  (  N*  (  1-1+  1  )  ,  v| )  .  fiO  PIVOT  IN  G  I  S  P  EK  FOR  ME  J  UNTIL 

C  THE  (M  +  I)  ST  ULGCK .  THE  RESULT  AFTER  dACK- 

C  SUP.  ST  I  TUT  I  UN  IS  STORED  IN  A  (  h'~  (  M  +1  )  ,  1  )  . 

c 

l  . 

REAL  A  (  4  T''  ,  4 ,  B  (.  A  3  ) 

LOGICAL  LOGL  ,  LOOK 
COMMON  A , 6 

READ!  5  ,  1"""  )  PHI  A  ,  PHI  8  ,  PHIC  ,H 
K,n  FORMAT  (  4  F  1  '  .  ?  ) 

N=l.E-5- ( 1 . fPHlC/H) 

KI  =  -1  .  E-4+(  PHI  B-PHIC)  /H 
R  2  =  I  .  E  -  5  + 1  .  (PHIA-pHIC)/H 
M= 1 . E-5-I .  +  1  . /H 
NO=  A- 1 
A1 1  =  h)  +  I 
K 1 1 =K 1 +  1 
KK  =  K.  2-Kll 
I U  =  N  -  K  K 
MO  =  M  -  I 
M  2  =  M  -  2 
M  N  =  iv.  *  N 
MN 1  =  MN  +  1 
N  J  =  M  N 
C 

c  CALC  !JL  AT  I  r  I  OF  FIRST  UPPER -T  P  I  ANGULAR  .U  C  R  . 

C  RANG  WIDTH  IS  N+l 

C 

A  (  1  ,  1  )  =  -  4  . 

A(  2 , 1  >  =  -3.7  5 
A ( 2  »  N ) =  r .25 
A( Ml , 1 )  =  0  .  2  5 
A  (  N  1  »  N  )  =  -  3 . 7  5 
DO  6  1=2, N 
I  1= I +1 
I  2  =  A:  - 1  +  ? 

N  I  =N+  I 

13=11-1 

T  P  =  - 1  .  /  A  (  I  ,  1  ) 

A  (  I  -  1  ,  ?  )  =  1  • 

I  F(  I  .  E  U  .  N  )  G  0  T  0  2 
DO  1  K  =  I  2  »  N 
A  (  I  1  ,  A  -  1  )  =  T  P  *  A  (  I  ,  K  ) 

1  CONTINUE 


. 


.'I  ri 
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A (  IM  )  =  TP-4. 
a (  ii ,  m  =  Tp 
?  no  A  j  =  m  f  i  3 
TE  MP=TP* A  (  j  ,  I ) 

A  (  J  ,  I  )  =  T  E  f  V 
DC)  3  N  =  I  2  ,  N 

A ( J  f  K - 1 )  =  A  (  J  ,  K  )  +  T  c UP*A (  [  ,  K ) 

?  CONTINUE 
A  (  J  ,  N  )  =  TC-l  > 

4  CONTINUE 

A  (  I  3  ,  N  )  =  A  (  I  3  ,  N  )  +  1  . 

A  (  N  I  ,  I  )  =  T  p 

DO  5  K  =  I  ?  ,  N 

A ( N I  »  K-l  )  =  T  P  *  A  (  I  ,  K  ) 

5  COOT  I NU E 

A( NT ,NC ) =A( N  I  fir  )  +  1  . 

A ( N I , 4 ) =TP-4. 

6  CONTINUE 

C ALGOL AT  I UN  OF  NEXT  7-2  U PPER -TK I ANGUL Ar 

DO  15  L  L  =  1  »  M  2 
M  L  =  N  *  L  L 
DO  14  L  =  1  »  N 
I  =  M  L  +  L 
11=1+1 
MI =N+I 
12=01-1 
T  P  =  - 1 .  /  A  (  I  ,  1  ) 

DO  P  J=  I  1  t  I  2 
TEMP=TP*A ( J  ,  1  ) 

P  0  7  K  =  2  ,  '  J 

A  (  J  ,  K  - 1  )  =  A  (  J  ,  K  )  +  TE  ■'IP*  A  t  I  ,  K  ) 

7  CONTINUE 

A  (  J  ,  N  )  =  T  E  " 

S  CONTINUE 

I F  (  L  .  N!  E  .  1  )  At  1 2,0)  =1  .  +T;:  Up 
DO  c  ^2,:p 
A  (  N  I  ,  K-l  )  =TP*  At  1,0 
9  CONTINUE 

A  (  0  I  ,  ir  )  =  !.  +  IP*  A{  1,0) 

I  F  (  L  .  F  ‘-.j .  I  )  A  (  N  I  ,  NO  )  =  A  (  N  I  ,  N  2  )  -  1  . 

A  (  N  I  ,  i  )  =  T  P  —  4  » 

14  CONTINUE 

15  CONTINUE 

E L  I  N  I  N A T  I  0  J  OF  THE  M TH  3 L fJC K  . 

N  E  =  N  +  I  D 

DO  16  I  =  K 1 1 , N F 


BLOCKS  . 


- 
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B<  I  )-=n  . 

IF (  I  .LT.K2 )  4 {  I  ) =  (Ml- I ) 

16  CONTINUE 

B  (  N  +  NL  5  =  d(  K1  1  ) 

S  (  N  +  K 1 1  )  =  3  (  K  2  -  1  ) 

VL  =  :-!L  +  N 
■M  E  =  N 

DH  L= 1 »  < 

I  =  ML'-*-  L 
I  1  =  L+ 1 

IF  (I  .  G  T  .  K  1 1  .  A  N  D  •  L  .  L  E  .  K  2  )  -E=0F-1 

L CJG  L=  L  .  L  F  .  K  1  .  Ok  .  L  .  BE  .  K  2 
L  0  G  K  =  L  .  G  T  •  K  1 
TP=-l./A(I,l) 

M  I  =  L  +  »i  E 
1 2  =  r;  i  - 1 

DO  13  LL  =  I  1 ,  12 
J  =  0  L  +  L  L 

TEMP=TP*A( J , 1 ) 

OH  17  K=2, 

A  (  J  ,  <-  1  )  =  A  (  J  ,  K  )  +  T  E  '  P  *  A  (  I  ,  K  ) 

17  CONTINUE 

IF(LDGL)  A ( J  ,  0  F  )  =  T  E  ‘ '  P 
I  F  (  L  .1 G  K  )  d  (  L  L  )  =  B  (  L  L  )  ME  1P*B  (  L  ) 

13  CONTINUE 

IF(  .  NUT. LOG L )  GO  TO  19 

I  F  (  L  .  N  C  .  1  .  \  N  0  .  L  .  N  c  .  K  ?  )  \  (  J  ,  N  E  )  =  1  .  +T  F  v  ° 

T  E  0  P  =  2  .  ■’=  T  P 

IF  (  L  JGK  )  7>  (  NT  )  =  C  (  N  I  )  +  T  E  '  P 5-  B  (  L  ) 

N I  =  I  +■  M  E 

00  13  K=2, OE 

A(M,K-1)=TEM='=A(I,K) 

18  C  0 1  i  T I N  U  E 

I  F  (  L  .  N  r  .  1  .  \  -J  0  .  L  .  N  F  .  K  2  )  A  (  N  I  ,  (•  E  -  1  )  =  A  (  N  I  ,  0  E  -  l  )  + 1  . 
A  (  N  I  ,  -1  F  )  =  T  7  v  j  p  _  /t . 

19  CONTINUE 
r 

C  GAUSSIAN  CL  IN  I  NAT  I  BN  /  I T H  P APT  I AL  PIVOTING 

C  ON  THE  (0+1)  ST  BLOCK. 


C 

r 

r 


CALL  Ga'JSS  (  0 ,0,10,1.  E - 4°  ) 

BACK  SUBSTITUTION  UN  THE  NTH  BLOCK. 

N  K  =  N  -  K  1 
N K 1  -  OK  +  1 
NK.2  =  0-K2+  I 
M  K  2  2  =  N  K  2  +  1 
DO  21  L  =  1  ,  N 
ML= ON- L 


- 
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■1L1  =  '1U-1 

IF  (  l  ♦  Gr  .  MK  ? 2 . AND . L . L  T  .  NK i  )  0  E  = 
IF ( L . LE . NK2 )  T  F P  =  h(  * >  i  -L  )  -  A  (  *■  L 
I  F  (  L  .  G  C  .  W K 2 2  .  A! .  ) .  L  .  L  E .  NK  )  T  E  *  •  P 
IF  (  l.  .  IE  .  JK  ].)  T  F  1P  =  -A  (  ML  1  +  ME  ,  1  ) 
OF!  7*  LL=?,ME 

T  E  M  P  =  T  E  M  P  -  A  (  ’Ll  ,  L  L  )  *  A  (  ML  +  L  L  ,  1  ) 
CONTINUE 

A(ML 1,1) =TEMP/A(NL  1,1) 

21  CONTINUE 

L, 

C  BACK  SUBSTITUTION  ON  BLOCKS  ? 

C 

DO  24  L  L  =  1  ,  M ? 

ML 1=  ml+  1 
00  23  L -  1  ,  4 
I  =  M  L  1  -  L 
TCMP  =  \  (  I +  M , 1  ) 

DO  22  K=  ?,M 

TE  M  P  =  TE  .OP  f  A  (I  ,  K  )  *A  (  I  +  K  -1  ,  1  ) 

22  CONTINUE 

A  (  I  ,  1  )  =  -  T  E '  ’  P  /  A  (  I  ,  1  ) 

23  CONTINUE 
ML  =  ML- N 

24  CONTINUE 
C 

C  BACK  SUBSTITUTION  ON  1ST  BLOCK. 
C 

DO  ?3  L  =  1  ,  N  0 

I  =  N  1  -  L 
11=1-1 
I  2  =  N:-I  <-2 
TEMP- A ( N+ I , 1 ) 

DO  2  3  K  =  I  2 , N 

TEMP=Tf M? f A (  I  ,  K ) *  A ( K  +  I  1 ,  1  ) 

23  CONTINUE 

I F ( L . N  E .  1)  T  EMP  =  T  E  M P  +  A ( I  + 1  ,  1  ) 

A  (  I  ,  1  )  =  -  T  T  i  P  /  A  (  I  ,  1  ) 

26  CONTINUE 

A  (  1  ,  l  )  =  (  A  (  !  1  ,  1  )  +  A  (  ?  ,  1  )  )  /  4  . 

,M  1  =  4  +  1 

DO  22  1  =  1,  'il 

1 1=  ( i- 1 )  *nu 

I  2=1 -  N 

WRITE ( 6 , 28 )  (  *  (  J  ,  1  )  ,  J=  I  1  ,  I  2 ) 

27  CONTINUE 

28  F 0 R v  A T ( IX,1  2  F 1 0 . 5 ) 

STOP 

END 


ME  +  1 
1  +  A  F;  ,  ]  ) 

=  B ( N  1  - L ) 


THRU  M-l. 


* 

• 
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r 

C 

r 


S0LUT  I  CM  OF  THF  T  R  AN S  FI  jP.M  E  0  CAmAL  PROBLEM 
BY  THE  GAUSS -Sc  I  DEL  METHOD.  LAPLACE'S  EQUATION 
rs  APPROXIMATED  BY  THt  N  I N  E- PO I  NT  FOR, AULA. 

THF  "A  I  F  R  0  k  l  M  AGE  IS  I  MPL  L  ■'  r  K  T  f  l)  ALU  N G  T  H  r 
BO UNO AS Y  ft  I T  H  THE  NORMAL  OER  I  VOTIVE 


■  v 


DIME  ASIC'!  X  (  11,41)  ?  Y  (  1  l  »  4  l  } 

COMMON  X  ? Y 

READ ( 5 , 1  )  PH  I  A, PH  I  S ,  J  hi  I  C  ?  H  ,  E  R  k  ,  I  T  t  R 
FORM  \ T ( 5  F 1 ' .  '  ,  I  1 " ) 

N  = 1 . E - 4 - p  H I C/H 

Kl=-1  . E-4^1 .  +  [ PHI B-PH IC ) /H 

K2=  1  .  F  -4  +  2 . +  (  PH  I A-PH I C ) /h 

iv= 1 .2-4+1  ,/H 

NN  =  N  + 1 

KK=K2-K1 -I 

ID  =  N-XK 

I  F  (  K  2  .  b  T  .  f'i  )  10  =  ID-  1 

*M=M+ 1 

INITIAL  GUESS  IS  ZERO. 


2 

-2 


DC  ?  1  =  1,  ny. 
DO  2  J=1,UN 
Y  {  I  ,  J  )  =  0  .  ~ 
CONTI  HJE 
CONTINUE 


4 


DC  4  J  =  1  »  K  K 
K=N1+ J 

Y  (  A  M  »  K  )  =  (  K  -  N  N  ) 

CONTINUE 


*  H 


GAUSS-SEIOEL  ITERATION  K;  INTERIOR  POINTS. 


A, 

7 


c. 

c 

r 


NC  = 
ERR 
NC  = 
DC 
DO 
T  E  M 
1  +  Y  ( 
F  R  k 
Y  (  I 
CON 
COM 


r  ■ I  1  —  r- 
l  '  A  —  • 

NC  +  I 
7  1=2?  U 
6  J=2?M 
P  =  °  .  '  : 


u  ■■ 


« ( Y (  I  +  1  ,  J  )  + Y  (  I  - 1  .  J ) * Y (  I  ?  J  +  l  )  +  Y  (  ItJ-1) 


I  +  l  ?  J  +  1  )  +  Y  {  I  +  1  ,  J  -  1  )  +  Y  (  I  -  1  ?  J  +  1  )  +  Y  (  I  -  1 ,  J  -  1  )  ) 

P  R  =  A m A X 1 ( ERROR ?  ABS (TEMP-Y (  I  , J  )  )  ) 

?  J)  =TFvp 
TIN  UE 


T  I  v  U  E 


GAUSS -SEIDEL  ITERATION  ON  BODY.  POINTS. 


DO  8  J  =  2 ?  ID 
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K=  J 


IF  (  K 

•  G  T  • 

K 1 

)  K 

= 

N  +•  K  K 

T  E  M  p 

=~ .  i 

jV;  f 

•  V 

o 

w  .  • 

(YIN 

M  ,  K 

-  1  ) 

+  Y  (  1 

t 

K 

+  1 

)  ) 

!  +  .  * 

Y(  '  , 

K  ) 

«-Y 

( 

t  K  - 

1  )  + 

Y  (  h 

tK  +  l 

)  ) 

ERRO 

R  =  A  R 

AX. 

3  ( 

r~ 

r 

p  H  c  R 

3  yLJ 

S(  T 

EOF  - 

Y  ( 

M 

t 

.<)  )  ) 

v  (  M  N 

t  K  )  — 

TE 

Ip 

8 

CONTI NUE 

IF  (  E 

RACE 

.  L  F  . 

F 

F.F  ) 

GO 

Tn 

I  F(  N 

C  .LT 

.  I 

TE 

:< 

)  GO 

TO 

5 

WRI  T 

-  (  fc  » 

9) 

9 

FORM 

AT  (  • 

NO 

CHNVEHG 

EMC 

E  '  ) 

!  r 

WR  I  T 

E  (  6  y 

l  I 

) 

E 

F  OR 

y  iN  C 

1 1 

F  0  R  Y 

AT  (  E 

?r 

•  A 

r 

I  15 

) 

WR  I  T 

:  ( 6 , 

1? 

) 

( 

(  Y  (  I 

r  J  ) 

»  I  = 

1  ?:!;•- 

)  , 

J 

=  1 

,  N  N ) 

1  2 

F  0  P  M 

AT  (  1 

X, 

1  1 

F 

lr  .  5 

) 

STOP 

END 
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C 


r 

r 

r 


SOLUTION  OF  THE 

T  R  AI-JSH 

'ili* 1 

EO  CA 

HAL  PROBLEM 

BY  GAUSS  IV.  FLIP 

I  NAT  I  ‘JH 

• 

L  A  P !..  A 

CCS  ECU  AT  [ 

I  3  A  P  P  r .  0  X  I  •!  A  T  2 1 ) 

PY  THP 

■  T 

N  I 

Mc-T'O 

I  ■«  T  F  il  \  H  Ij  1.  A 

THE  ,1  ‘ RU-  IUAGb 

IS  CP 

Lt 

’  P  MT  g 

ij  ALONG  1  hi  E 

BGUf  J  A  k  y  ,:I  Th  THE  HU  'HA 

,  L 

U  r  H  I  V' 

AT  f  V  F .  THE 

K EI'jUC  ED  MATRIX  I 

o  A  L  A  N 

c 

Y  ATP  I 

•x  Oi-  B  A  NO 

W  1  C  T  ri  M  +  2  3  T  '1 H-  0 

P"  A  (  : 

*  ( 

l  +  l  )  , 

r.c  ) . 

P  I  V  1  1  I  '  H  i  S  N  J  T 

•H  E  L  ■-  5  S  A 

R  \ 

UHT  I 

L  THE  l  0  + I  j 

BLOCK.  THE  ESUL 

T  A  r  T  t  p 

f 

A G K  SUBuTITUTH  i 

13  STORE*)  11!  A(N 

•'■  (  +  1 )  , 

1  ) 

• 

HI  YE  'IS  ION  1  i  A  r'  , 

HI),  b  (  S  '* 

) 

LOGICAL  L  :CK 

C ^  ■  i  j  I  /  i  ,  j) 

0 (5,1 " ~ )  PH  I  A , PH  I b , PH T  C , h 
1 r "  FORMAT  ( 4F!  '  ) 


r.  i—  1 

'  t  *  • 


5  -  !  1 ,  +  P  H  I  C  / 


K  1  =  -  1  .  E  -  4  +  (  P  H  I  r  -  P  H  {  C  )  /  H 
K 2  =  1  .r  5  +  1  ,  +  (  p H  I  A  —  PH  I C ) / 
M=  1.--5-1.  +  1./H 
KK  =  K2-i\l -l 
I D=M-KK 
1C  -C 

M  n  -  v.  _  i 

X 

N  1  =  l1  +  1 

Mr:  1  =>!*•;  + 1 

NO  =  N  - 1 
Mf'i"  =  'll  -N 


GFfsiEPATIub  nr-  THE  FIRST  FLICK 


r 


c 


on  ? 

1  =  1  r  N 

00  1 

>j  —  1  ? 

A  (  I  , 

J  Cr  . 

CONI 

I N  U  c 

I  F  (  I 

.  1-  .11 

A  (  I  , 

I  -1  )  = 

4 . 

A  (  I  , 

i )  =-  r . 

I  F  (  I 

.NEC) 

A  (  I  , 

i  +  1  )  = 

4  • 

core 

I  HUE 

F  L  I M 

1  N  A  T  I  ON 

CF 

THE  F 

IP  ST  K-l 

DO  3 

K  =  1  ,  *  o 

CALL 

R  E  DOC  E 

(K, 

N  ) 

0  U  N  T 

INUE 

GEN  F 

.TATI  ON 

OF  T 

HE  PI 

GMT -HAND 

K 1 1  = 

Kl  +  1 

K 1  2  = 

K 1  +  2 

■ 


o  o 
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K22-K2-2 
RNK=N-K1 
K 1  n  =  k  1  -  1 
K  2 1  =  K  2  +  1 
N I D  =  N  f  I  0 
DO  4  I  =  1  ,  K 1  - 
3(1)-^. 

4  CONTINUE 
B ( K 1 ) - . \K-H 
8  (  K  1 1  )  =  (  5 . 4  RNK-  1  .  )  -:-h 
H  6  =  6  ':H 

DO  5  I=KI?,K22 
BNK-OI-I 
B  {  I  )  =  B  0  K  ~ :  H  n 
c ;  CONTINUE 
K  2  -  =  K  2  - 1 

B ( K2 - ) -  ( 5 ( N-K2 ) f  1 1 .  }  *H 
8  (  K  2  )  =  (  N  -  K  2  2  )  -4i 
OO  6  I  =  K  2  I »  N  I  0 
B  (  I  )  -  n  . 
o  C  0  N  T  I  N  U  E 

B( N+NI ) =2 . ( Kl ) 

3 ( N  +  Kl 1  )  -2 . *R ( K2 ) 

EL  I  vi  NTT  I  ON  OB  THE  FIRST  COLUMN  OF  THE 
NTH  BLOCK. 

1  =  0  n  -'r 

Hi  =  F|'+  I 


0  I  -  = 

■\l 

i 

i 

- 

i 

N  I  1  = 

N 

i 

+ 

11  =  1 

+ 

i 

T  p  =  - 

1 

• 

/ 

.•-A 

( 

I 

,  1. 

) 

MI, 

J 

l 

) 

= 

'-p 

• 

DC  8 

j 

= 

i 

f 

JI 

TEMP 

= 

T 

I 

P 

* 

{ 

J  f 

1  ) 

DC  7 

K 

= 

2 

f 

A(  J  , 

K 

- 

] 

) 

- 

[\ 

(  J 

t  K  ) 

i  +  T 

D  '4 

CON  T 

r 

i 

r  i 
> 

U 

C 

A  (  J  . 

4 

> 

= 

4 

. 

r: 

rr 

D 

A(  J  T 

\ 

1 

I 

) 

- 

T 

d 

./>,  p 

CON  T 

I 

■'  4 

u 

A  (  I  1 

♦ 

fv! 

) 

- 

{ 

I  1 

»M  ) 

i  +■  1 

• 

AC  I  1 

1 

,,  I 
N 

1 

1 

) 

= 

A 

(  I 

1  ,F 

a ) 

+ 

A  (  I  + 

f 

r 

I 

) 

- 

A  ( 

14-2 

)  fv 

?  •  M 

L 

)  + 1 

T  F  M  P 

- 

4 

• 

T 

P 

A(  N  I 

r 

1 

) 

- 

J 

L 

-p 

*  A  ( 

I  t 

)  4-  1 

DO  9 

K 

= 

p 

t 

N 

A(  M 

y 

K 

- 

1 

) 

- 

TF 

j\i  p  y. 

;  A  ( 

I 

,  K  ) 

9  CONTINUE 
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A  (  N  I  ,  N  )  =  4 . ~  T  F  VP - 1  . 

A  (  N  I  »  '■I  1  )  =  T  c  M  P  +  2  » 

A( N  I  1 ,  1  )  =  T**A (1,2)+^. 

A  (  N  I  l  ,  %>_ }  =  T  .->  W  A  (  I  ,  3  )  +  I  . 

DO  10  K  =  4  ,  ' ! 

A  (  N  I  1  ,  K  -  1  )  =  T  P  -  A  (  I  ,  K  ) 

1°  CONTINUE 

A  (  N  T  1  ,  F 1  )  =  T ~N  P+2  . 

A  (  N  I  1  ,  i\  1  )  =  T  P  -  V  . 

ELIMINATION  OF  REMAINING  COLUMNS  OF  THE 
NTH  SLOCK. 

N  E  =  F  1 

DO  14  L  =  2  ,  N 

L0GK=L.LT.K1 . Ok.  (  L  .  G  E  .  K  2  r  .  A  N  Q  .  L  .  N  E . N ) 

IF ( L  .GT.K1 . AND.L .LF .K2^ ) Nc=NE-l 

I=MN°+L 

11=1+1 

L  1  =  L  +  1 

NL  =  ME  +  L  -  1 

NI=NE+  1-1 

NI 1  =MI  + 1 

TP  =  -  1 .  /  A  (  1,1) 

DO  1?  LL=L1,NL 
J=YtFP+LL 
TEMP=TP*A( J , 1 ) 

DO  11  K  =  2  r W  E 

A  (  J  »  K  - 1  )=A( J ,K)  +  TE.!P*A  (1,0 

11  CONTINUE 

IF  (LOOK)  A  (  J  ,  N  E  )  =  T  EM  P 
B ( L  L ) =  E ( L  L ) +TEMP*P ( L ) 

12  CONTINUE 

IF (  .NOT. LOOK  )  GO  TO  14 
A<  I  1 tNE ) =A(  I  1  »  N E )  +4 . 

I F  (  L  .  N  E  .  h  n  )  A  ( I  +  2  ,  N  F  )  =  A  (  I  +  2  ,  N  F  )  +  1  . 

IF { L  .NE  ,K2  O  a ( MI  , u E ) = A ( f :  I , N E ) + 2 . 

A ( M  I  1  , 1  )  =TP*A(  I  , 2 ) +4 . 

A ( N  I  1 , 2 ) =  T  P *  A (  1,3)  + 1 . 

IF  (  L  .  E  0 .  N  O  A  ( N  I  1  ,  ?  )  =  A  {  N  I  1 , 2  )  -  1 . 

DO  13  K=  4 , N E 
A ( \  I  1 , K-l  )  =  TP*A(  I , K ) 

13  CONTINUE 

I  E  (  L  .  N  E  .  K2  *  )  A  (  N I  1  ,  N F  -  1  )  =  A  (  N  I  1  ,  N  =  -  1  )  +2 
A  (  N  I  1  »  N  E  )  =  T  P  - 1  *  . 

S(Nl +  1  ) =3 (NL  +  1 ) +  TP*B  (  L ) 

14  CONTINUE 

GAUSSIAN  ELIMINATION  WITH  PARTIAL  PIVOTING 
ON  THE  (-1  +  1)  ST  BLOCK. 
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r 

< 

c 

c 

r 


CALI  GAUSS  (  H  , ' ' ,  ID ,  1 .  0-4^  ) 

BACK  SUBSTITUTION  uU  THE  Mu  BLOCK. 


DO  16  L  —  1  ,  Nsl 
I  =  M N  1  -  L 

L  OG  K  =  L  .  G  E  . N-K2+3 . AND. L.LF.Nl-Kl 
IF ( LOCK ) Nf.  =  NE  +  l 
TF  i'1P  =  B  (  Nl-L  ) 

I F ( L . 0  F . 1 .  a  NO .  . NOT . L  OCA ) T E  IP  =  FE MP- A ( 

I  1= 1-1 


DO  15  J  =  2  » NE 
TE.MR  =  TEMP  -A  ( 
15  CONTINUE 

A  (  1,1  )  =  T  E  M  p  / 
1  6  Cl  N  i  I  1 U E 


I  ,  J  ) 
A  (  I  t 


4  A  ( 


1  > 


I  1+J 


) 


I  +  ME 


1  ) 


L 

r 


BACK  SUB  ST  I  TUT  IF N  ON  ? 


A  I  N  I 


>1 


BLOCK: 


DO  19  K=l,*p 

mk=  (  t-k )  *r;+ 1 


1  7 

1  s 


DC  IT  L  —  1  ,  N 
I  =  M  K  -  L 
11=1-1 
T  F  M  P  =  0  . 

I  F  (  L  .  I F  .  1  )  T  E  M  F  =  A  (  I  +  N  1  ,  1 ) 
DO  17  J  =  ?  ,  N1 

T  e  M  P  =  T  E  M  P  +  \  (  I  ,  J  )  *  A  (  I  1  +  J  ,  1  ) 
CCNTI  SUE 

A( I , 1 ) =-TEVP/A( I T 1 ) 

CONT  IMUE 


19  CO' ill  CUE 
MI  0=MM+I  j 

WP 1 TE ( o , 2  )  ( A (1,1)  ,1=1  ,OID) 
FORMAT ( 1 X  » 1 °  E 1 2 • 9 ) 


STOP 

END 


. 
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SUBRGUT 1 Nh  REDUCE { L,N) 

C 

C  DECOR  PC)  S  I  T  I  ON  OF  THE  NINE-POINT  FORMULA 

C  GAUSS  I  AN -ELIMINATION  ,,  IT  H  OUT  PIVOTING. 

C  BLOCK  K.  .  . FLOCK  SIZE  N . 

C 

DIMENSION  A (AGO, 41) 

LOGICAL  IDEM 
COMMON  A 

n  r  =  t  -1 

N1=N+1 

C 

C  ELIMINATION  OF  1ST  COLUMN. 

/** 

I  =  (  L  -1  )  *N  +  1 
11=1  <-1 
N  I  =  N  +  I 
KN=L-M 
N  I] =  N  I  + 1 
A (  I  ,01 ) =  4 . 

TP  =  - 1 . /A (  I  ,  1 ) 

DO  2  J  =  I  1 »  K N 
TEMP=TP*A(  J  ,  1  ) 

DO  1  K  =  2  »  N 

A  (  J  ,  K-  1.  )  =  A  (  J  ,  K  )  +  T E  MP*  A  (  I  ,  K ) 

1  CONTINUE 


A  (  J  , 

xi)  =4 

TE 

\i  p 

A  (  J  t 

Ml  )  = 

T  r 

NP 

CONTI  NlJF 

Mil 

,  J)  = 

A  ( 

I  1 

J  i  ) 

+ 

1 

i. 

• 

A  (  I  1 

,  N  1  ) 

=  A 

(  I 

1  f  !  v 

l 

) 

+  4 

• 

A  {  I  + 

2  ,i\l 

)  = 

A  ( 

1+2 

t 

N 

1  ) 

+  1 

T  t  M  P 

=  4  .  * 

TP 

A  IN  I 

,  1  )  = 

Tc 

M  P 

*  A  ( 

I 

1 

2  ) 

+  1 

DO  ? 

K  =  3 

,  N 

A  {  N  I 

,  K-l 

)  = 

EE 

V  p 

A 

{ 

T 

l  ? 

K  ) 

CONTINUE 

A  (  N  I 

>  N  )  = 

4  . 

*T 

-  -’P 

- 

o 

♦ 

A  (  N  I 

» N  1  ) 

—  t 

-  V 

P  +  4 

• 

A  (  N  I 

1,1) 

=  T 

J  # 

A  (  I 

t 

2  )  +4. 

A  (  N  I 

1,2) 

—  T 

P  * 

A  (  I 

t 

1 

)  + 

1  . 

DO  4 

K  =  4 

N  1 

A  (  N  I 

1  ,  K- 

1  ) 

=  T 

P  *  A 

( 

I 

,  K 

) 

4  CONTINUE 

A ( N 1 1 »  N ) =TEM  P  +4 . 
A  (  MI  1  »  M  )  =  T  P  - 2 C  . 


C 

q  ELIMINATION  OF  REMAINING  COLUMNS. 

C 

*N0=KN-1 


AY 


' 
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DO  8  1  =  1  1  ,  KN 
I  1  =  1 f  1 
NI=N+I 
N  I  1  =  N  I  +  1 
I NEN= I . ME .KN 
TP  =  - 1  .  /  A  (  I  ,  1  ) 
on  6  J= I  1 , N I 
TFMP-TP*A( J , 1 ) 

DO  5  K=  2  »  Ml 

A  (  J  ,  <-  1 )  =  A  <  J  ,  K  )  f  T  E  M P  v  A  (  I  ,  K) 

5  CONTINUE 

IF  (  I  MEN  )  A(  J  ,  Ml  )  =TE:-,P 

6  CONTINUE 

I  F  (  .  FIT  .  I  ME N  )  GOTO  9 
A(Il,Nl)=A{Il,Nl)+4. 

IF (  I  .ME  .<rr  )  A(1+2,N1)=  A (  I  +  2 ,  i  J 1 ) + 1 . 

A  (  N  I  »  N  1  )  =  A  (  N  I  » f !  I  )  +  4 . 

A( N I  I , 1 )  =  TP*A (  L , 2 ) +4. 

DO  7  K  =  3  »  N 1 
A ( M I 1,K-1)=TP*A(  I »  K ) 

7  CONTINUE 

I  F  (  I  .  NE  .  )  M  N  1 1  ,  2  )  =  A  (  N  I  I  f  2  )  +  1  . 

AtNIl, N ) = A ( Mil , N ) +4. 

A( MI  1 , M ) =TP-2^ . 

3  CONTINUE 
9  RETURN 
END 
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SUBROUTINE  GAUSS  (  I  D,.M,N,CR  IT  ) 

GAUSSIAN  ELI  '1 1  NAT  I  JN  W  ITU  PARTIAL  PIVOTING  ON  AR  =  U. 
RESULT  STORED  IN  R .  ROWS  NOT  PHYSICALLY  INTERCHANGED . 

0  I  ME  NS  I  ON  A ( 440  ,4  1  )  , U ( SO  ) 

INTEGRA  INDEX (4?) 

COMMON  A  ,  U 
MN  =  M* I D 
N 1  =  N- 1 

N2  =  >1+1 
N3  =  I  D  + h  +  1 
MNN- MM  +  N 
MN I  =  -IN?,+  I 
DO  1  1=1,1 
INDEX! I )  =  I 

1  CONTINUE 

DO  5  LL  =  I ,  II 
I  =MN+LL 
I  I  =  L  L  + 1 
X  A  M  =  r. 

DO  2  J=LL,N 
IN  =  INDEX! J ) 

IF ( XAM.GE. APS! A( I , IN) ) )  GO  TO  2 
X  A  N  =  A  u  S  (  \  (  I  ,  I  N  }  ) 

K  =  J 

?  CONTINUE 

IF ( XAM.LF.CRI T)  GOTO  8 

KK  =  I f '  D  r  X ( K  ) 

MK= MN+ KK 
N  K  =  I  D  +  K  K 

INDEX { K )  =  I  NO  EX ( L  L ) 

INDEX! LI  ) =  K K 
j  p  =  -  1  .  /  A  (  ■  ’  K  ,  L  L  ) 

DF  4  L  —  I  I  ♦  N 
K  =  INi)FX(L) 

ML=r N  +  K 
NL  = I D+  K 

TEMP=TP- A (  XL  ,  LL ) 

DO  3  J  =  I  I  » N 

A  (  ML  ,  J  )  =  A  (  VIL  ,  J ) +T  E  0 P  4  A  (  1 K  ,  J  ) 

3  CONTINUE 

U(  ML  )  =U  (  NL)  +TEMP*U  (  NX  ) 

CONI INUF 
CONTINUE 
K  =  INDEX (N) 

MK  =  0!+K 

I  F  (  A P>  S  (  A  (  MK  ,  N  )  )  .  L  r  .  C  R  IT)  GOT  0  8 
NK  = I D+K 

A  (  NF  N  ,  1  )  =  U  !  NK  )  /  A  (  MK  ,  ■  i) 

DO  7  1=1  »  Til 


c 

5 


. 
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KK  =  N -  I 
K  =  INDE X ( KK ) 

MK=VM+K 
NK  = I  0  +  K 
T M  =  U  (  NK) 

DO  6  J  =  1  ,  I 

TO  =  T  '\  -  A  (  IK  ,  N?  -J  )  '■'  \(  MiU-J  ,  1  ) 

A  CONTINUE 

A  (  iMK  ,  1  )  =  T ■■)/ A  (  K  ,  KK  ) 

^  CONTI  NUE 

RETURN 

'i  wR  I  T  b  (  6  »  9  ) 

1  FORMAT  (•  1ATRIX  IS  SINGULAR') 

STOP 
END 
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SOLUTION  TO  THc  CANAL  PROBLCM 
IN  THF  C  0  M  P  L  c  X  -  PI .  T  E  N  T  I  A  L  PLANE. 
LAPLACE'S  50 UA T I  CM  I  $  AP  PR  )X I M AT  ED 
RV  THE  LIVE-POINT  FL:.-.  .*ttJLA  .  SCHEC  LITER  1  5 
A  L  T  H  j  0  IS  USED  T  i;  SOLVE  THE  RESULTING 
SYSTEM  OF  EQUUICN. 


» i " ^ ) » hi  (  c 


PEAL  1 A  (  1  '  \  l  ^  ~  )  t  o  b  (  l 
REAL  8  (  1  1  "  0  ,  C  {  1  e-  -  ) 

R  E  A  D  (  5 , 1 "  )  P  H I A  ,  P  H  I  B  ,  P  H  I  C  ,  H 

F  0  R  M  A  T  {  4  F 1  '  .  m  ) 

N=  1  .  - - 5  - ( 1 .  +  PHIC/H ) 

K 1  =  -  1  .  l  -  4  -t-  (  ?HI  L-PH  I  C. )  /H 
K  ?  =  1  .  E  -  5  +•  1 .  +  (  PHI  A-PHIC  )  /H 
0=1 . E-5-1  .  +  1  ./H 
K 1  1  =  41  +  1 
K  K  =  K  2  -  K 1  1 
I  D  =  N  -  K  K 

iM?=  \?  -  7 

MO=N - 1 
N  1  =  N  f  1 
M  1  =  M  -t- 1 
MQ  =  M - I 

CALCULATION  OF  P  {  1  )  A, Nl)  PC). 


)  t  P  (  C  '  ,  1 


no  2 

1  =  1 

J 

M 

00  1 

J  =  1 

J 

N 

M  A  (  I 

f  J  )  = 

• 

ME-  (  I 

T  J  )  ~ 

• 

CONTINUE 

MAI  I 

t  t  )  = 

- 

MB  (  I 

,  n  = 

T 

I 

7 . 

IF  (  I 

.ME  . 

1 

)  ' 

■1  A  ( 

T 

f 

i 

- 

1 

) 

—  i 

JU  • 

IF  (  I 

•  ME. 

N 

)  ' 

■1  A  ( 

I 

? 

i 

+ 

1 

) 

—  1 

X.  • 

I  F  (  I 

i  s  L  • 

l 

)  ' 

■INI 

I 

y 

i 

- 

1 

) 

=  -  A 

IE  (  I 

«  O  i  • 

~> 

) 

C( 

T 

i 

y 

i 

- 

*> 

AL 

) 

=  1  . 

I  F  (  I 

.  1  E  . 

N 

)  f 

•lb  ( 

I 

y 

i 

4- 

) 

—  „  Q 

• 

IF  (  I 

.  L  T  . 

i 

0) 

'••1 B 

( 

i 

y 

T 

1 

+ 

/ 

)  =  1  . 

COM 

I  HUE 

Mb  (  1 

»  1  )  = 

1 

L 

. 

M  B  (  N 

»  N  )  = 

1 

6 . 

CALC 

ULAT  I 

Oh 

r* 

J  r 

p 

i 

•  4 

1 

• 

2 

)  AND 

PI  K  ) 

=  P  I  K 

- 

1  )  5’ 

N)  - 

P 

i 

K 

- 

2 

) 

.  MA 

P(f  -1 


1)  FRO' 


M A  =  P‘(  N-2  ) 


IO- 


iv  - 1  ) 


I  F  (  .  E  (*  *  3  )  e 

DO  14  K=3,4C 
JK  =  N  -  K 
I  2  =  N-K+ 1 


I  TO  14 


• 
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5 

A 


7 

P 

a 

1  ^ 

1  1 


12 

1  7 


IF  (  K  . 

FC  W  ♦ 

2  *  ( 

r\ 

/  2  ) 

) 

u 

j  T  P  Q 

DO 

*3 

1  =  1 

»K 

M  A  ( 

I  , 

1  )  = 

MB  ( 

I 

» i : 

>  +  mb  (  i 

COi, 

i  T  I 

NUE 

DO 

4 

I  =  I 

2,  N 

-A  ( 

I  , 

N  )  = 

1£{ 

I 

f 

) 

-4  , 

.  -  Mb  (  I 

CON 

T  i  N  U  E 

DO 

6 

J  =  2 

»  N  ) 

J0  = 

J  - 

] 

J  1  = 

J  + 

i 

I  1  = 

J  J 

-K 

IF  ( 

T  I 

.LT 

.  1  ) 

I  1  = 

1 

12  = 

JO 

+  K 

IF  ( 

I  2 

•  G  T 

.  ‘  J ) 

I 

2  =  0 

DO 

5 

1  =  I 

1  ,  I 

p 

v  A  ( 

I  , 

J  J  = 

Mt3  ! 

I 

r  JO 

) 

-4  . 

M  8  (  I 

''  D  (  I  »  -  P-  A  (  I  f  l\  ) 


2  (  I  1  J  )  +('  0  (  I  ,  J  1  )  -f1  A  (  I  ,  J  ) 

CONTINUE 
CONTINUE 
DO  6  7  I  =  !,J,< 

■MA(  I  f  K  »  I  )  =  1  . 

CD  NT  I  N!JE 
V A ( J  < , C  ) =1  . 

IF  (K.NE.  TJICGTO  1  4 
DU  8  I=1,N 
nC  7  j  =  l  ,  ,j 

TEMP  =  MA (  I  ,  J ) 

U  ■-  (I  ,  J  )  =  ME  (  I  ,  J  ) 

MB<  I  ,  J  )  =  T  E  v  P 
CO NT INUF 
CENT  I NuE 
GOTO  14 
DC  1?  I  =  1  t  i< 

MB  (  I  ,  1  )  =  -4. 7EA(  I  ,  i  )  +  **a  (  I  ,  2  )  .1  (  I  ,  1  ) 

C  0  0  T  I  '-I  u  E 
DO  11  1=12, N 

)VB  (  I  r  N  )  =  Y  A,  (  I  ,  Nu  )  -4  .  *0  A  (  I  I  y  N  > 

CONTINUE 
DC  13  J=2,MJ 
JO  =  J  -1 
J  1  =  J  +  1 
I  1= JO-K 

I  F  (  I  1  .  L  T  .  1  )  11  =  1 

I ?  =  J  0  +  K 

IF  (  I  7  .  GT  ..'■>)  I  7  =  fJ 
DO  1 7  I  =  1  1  ,  I  2 

Md  (  r  ,  J  )  =  >1  a  (  I  ,  JO  )  -4  .  =  NM  I  ,  j  )  4-  \‘A  (  I  ,  j  1  )  -  M B  (  I  ,  J  ) 

CONTINUE 

CONTINUE 

DC  137  I =  1 , J  K 

MP,  (  I  -f-K  ,  I  )  =1  . 


• 

o  o 
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CO 

NT  I 

N  U  E 

M  b 

(  J\ 

,  N  )  =  1 

• 

CD 

N  T  I 

N  U  F 

MI 

=  P( 

M  -  1  ) 

I  N  V  E 

RSE 

CA 

LL 

I  ' .  V  F  ° 

T  (  N  , 

‘•B, 

r- 1 

-  U  ( 

0-1  ) 

I  NVE 

k  s  E 

CALL 

MULT  ( 

•  t  l\  J 

0 ,  .0 

MB 

=  U( 

00. 

DO 

1  8 

1  =  1 , 

J 

I  1 

=  I  + 

• 1 

DO 

1  7 

J=1 , 

'  f 

MB  { 

I 

♦  J  )  = 

I  ( 

I  , 

J  ) 

COM 

T 

I  N  U  l 

MB  < 

I 

» i  j  = 

;Vj  f  J 

(  I 

,  I 

)  -4  . 

IF  ( 

I 

•  !  c:  • 

l  ) 

i  - . 

(  I 

,1-1. 

)=  iB  (  I  ,  1-1  )  +  L. 

IF  { 

I 

.  f  • 

N  ) 

M  B 

(  I 

,  i  + 1 : 

)  =  o(  1,1  +  1)+-!. 

1  H  CONTINUE 
C 

C  M  A  =  U ( M )  INVERSE. 

C 

call  invent  t  o,  >b,  uaj 
m-L  (  ) 

oo  2  ?  i  =  i ,  r  o 

K  =  I 

IF(K.3T.Kl)K  =  r\  +  KK 
DO  19  J= 1 ,  J 
MB  (  I  ,  J  )  =  2.  -U(  K  ,  J  ) 

19  CONTINUE 
CONTINUE 

GENERATE  THE  3  I  GOT -HAN J  SIOF  <1  (  1  ) 

C  =  B  (  2  )  -  L  (  ■’.  +  1  )  *  I ',  (  1  ) 

00  21  1=1, OK 
K= I +  A1 

B  (  K  )  =  (  N  1  -  K  )  *  1 1 
21  CONTINUE 

DU  2  3  1  =  1,  ID 
T  E  M  P  =  n  . 

DO  ?2  J  =  1  , K  K 
K=K 1+ J 

TF  !  1 P  =  T  r  N  P  +  • 1  B  (  I  ,  K  )  K  ) 


. 
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">?  CONTINUE 

C  (  I  )  =  -  T  2  M  p 
2  3  CONTINUE 

C  (  K  1  )  =  C  (  i<  1  )  +  3  (KI1) 

C ( K 1  I  ) =  C ( K 11) * i  ( K  2  - 1  ) 

CALCULATE  >**3  =U(  M+ 1  )  . 

DC  25  J=1,I0 
K=  J 

If-  (  K  .  GT  .  K  I  )  K-K+-KK 
DO  2  A  1  =  1,1  D 
M3  (  I  ,  J  )  =  -  I  ,  K  ) 

24  CONTINUE 

MB  (  J  ,  J  )  =  v  M  J  ,  J  )  -4  . 

I  r  (  J  .  0  r  .  1  .  I  0  J  .  J  .  3c  ,K  I  1  )  3(J-l,J)  =  ;i3(J~l,J  )  +  1  • 

IF  l  J  .  13  .  K  I  .  A  D.  J  .ME.  ID)  M  3  (  J  +  I  ,  J  )  =M3(  J  +•  1  ,  J  )  +■  1 . 

2  5  CONTINUE 

SOLVE  MtJ*Q=C  FOK  3. 

CALL  DEC  0  UP (  I  D,  ML  ) 

call  solve ( i  dm 3, c, c 0 

+  )  =  3  . 

DO  24  I=I,IO 
K=  I 

I  F  (  K  .  G  T  .  K  D  K  =  K  +  K  K 
M  6  (  M  1  ,  K  )  =  3  (  I  ) 

2D  CONTINUE 

no  3*  1  =  1  , KK 
K=  I  +  K  I 

MB  (  Ml  ,  4)  =(  K-N  I  )  *H 
3°  CONTINUE 

MB ( N  ,  1  )  =  Y(  1 )  =  M  A  * ( 3-J *Y ( M+  1  )  . 

DO  ?  1  I  =  1  »  0 
C  (  I  )  — —  MB  (0,1) 

?I  CONTI N U  E 

no  23  r  —  1 ,  'i 
TE  r1P=^  . 

DO  3  4  J  =  1  ,  -i 

TEMP  =  TE.mP+  ‘.A  (  I  ,  J  )  *C  (  J  ) 

DA  CONTINUE 

MB  (  M,  I  )  =  T r  1  p 
dm  CONTINUE 

MB ( M-l , ) = Y( A-l ) =  MA*Y ( M ) 


• 
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C 


3  6 

3  7 
r 

c 
c 
!  , 


38 
■a.  q 


L.r 


on  37  1=1,  I 
TF  *,P  =  '' . 
nn  36  j  =  i ,  n 

TE-VP=T£MP  +  II  (  I  ,  J  )  *  •! R  (  M,  J  ) 

CO NT  I NUF 

MB ( ; 1 0 ,  I  ) =-TFwp 

CONTINUE 

CALC UL AT  10  !  0  +  REGAINING  V(K), 

Y(  K  )  =  -l*Y  (  <+  1  )  - Y  (  N •*- 2  )  . 

NO  3 °  N  -  1  ,  '2 
1 1  =  M-K 
I-  I  1-1 
12=1+2 

■3  (  I  ,  1  )  =  4  .  -7-6  (  I  l  ,  l  )  -  io  {  11,2)  -M  6  (  I 

MB  (  1  ,  N  )  =  4  .  v,v  3(11,1)”  'T-  (II,  NO  )  -MB  ( 
DO  3  3  J  =  2  ♦  I  j 

MB  (  I  ,  J  )  =  t .  7,.i  ;•;  (  I  l  ,  J  )  -  Mo  (  I  1.  ,  J  +  1  )  -h  rt 


CONTI 

N  U 

c 

CONTI 

YU 

Cl 

CALL 

CL 

n 

19 

•'  (  NOT) 

MM  T=  ( 

3  A  ’  ' 

T 

—  "  | 

NT  ) 

RMT  =  M 

MT 

* 

2d 

.  3-9 

W  R  I  T  : 

(  A 

> 

?  ^ 

'  )  K  -IT 

DC’  4 

r 

1 

= 

1  , 

1 1 

WR  I  T  E 

(  6 

♦ 

2 " 

)  (  H.  (  I  ,  J  )  ,  J 

F  0  R  F  A 

T  ( 

1 

X  T 

1  ~  F  1 2  .  f- ) 

CONT  I 

NU 

E 

GOTO 

A  4 

9 

S  T  0  p 

PML) 

1  ) 
t  N  ) 

It  J- 


v 


)  13(1  1 1  J ) 
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SUBTOUT  INE  MULT  {  *•'  T  N  ,  P  ,  A  ,  B  ) 

/,  I  ML)  AO  ’-LJLT’ii  CF  4(M,N)  4NL  E  { ,  P  )  • 

BESULT  IN  A. 

DOUBLE  PHECISI  N  ZETS  (  1  "r  ),  TE'-liM  lrr  ),  LETT,  TP 
PEAL  A  (  1  °  ,  1  '  _  )  ,  L  (  l  r  1  i  -r  ) 

INTEGER  P 
N  2  =  N  /  2 
DD  2  J=1  ,  P 
T  P  =  r  . 

DO  ]  1  =  1,  N  1 

<=2*1 

TP  =  T  J  +  DBL  C (  i  (  K-  1  *  J  )  ) *  )  b  L  F  (  b  (  K,  J)  ) 

1  CONTINUE 

Z  F 1  5  (  J  )  =  T  p 

2  CONTINUE 
Z  E  T  T  =  -  . 

DO  3  J  = 1 ,  i 2 
<=2*J 

ZETT  =  Z  ETT+D£LF(  M  I  ,  I  - 1  )  )  -  )RLE;  (4(1,0) 

3  CONTINUE 
DC  5  J  =  1  ,  P 
T  P  =  ^  . 

DO  4.  L  =  1  »  N  2 
K=  2  •'  L 

T  P  =  T  P  +  (  D  B  L  >-  (  A(  I  ,K-1  )  )  +  0  G  L  E  (  b  (  N  ,  J  )  )  ) 

l  *  (  D  K  L  E  (  A  (  I  ,  <  )  )  ■»■  D  L  E  (  G  (  \  -  1  »  J  )  )  ) 

4  CONTINUE 

TEi'-P  (  J  )  =  TP-ZETT-ZcTS  (  J  ) 

3  CONTINUE 

IFIN.EU. Z*N2 )  GOT  1  7 
T  p  =  A  (  I  ,  N  ) 

1)0  J  =  I,P 

A  (  I  ,  J  )  =T  E  N,P  (  J  )  +  T  P  *<)o  L  F  (  r  (  N  ,  J  )  ) 

6  CO NT  I N U E 
GO  TO  7 

7  DO  8  J=1,P 
A  (  I  ,  J  )  =  T  E  M  J  ) 

CONTI NUE 
CONT 1 MUF 
RE  TURN 
CN0 


n 


• 

. 
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S  U  B  P 

GUT  I  NE 

u 

r 

CO 

M  P 

(  Nt 

A) 

DEC  n 

IPOS  I  T 

I  0 

!'  1 

c  i 

1  j 

r 

A  I 

NTT 

Tr 

1 1 

P 

ROD 

UC  T 

OF  A 

L  G  W  ~  P 

n 

\] 

y_) 

AN 

Uf 

P  E  k 

T‘ 

I  A 

f ; 

GUL 

AR  MATRIX.. 

D  I  o  E 

NS  ION 

A  ( 

1 

i 

,  A 

"  ) 

f  $  C 

ALE 

ES( 

1 

~  0  ) 

,  I  PS ( lAr ) 

COM  5 

UN  IRS 

DO  5 

1  =  1,  N 

IPS  ( 

I  )  =1 

R  G  W  N 

j  u  —  r* 

N  1  ~  • 

00  ? 

J-l  ,  1 

ROW  N 

RM-A  4  A 

XI 

( 

R  i  j 

Rg , 

A3  3 

(  A 

(  I 

, 

J  )  ) 

) 

I  F  (  R 

GW  N  P  v<  ) 

*5  f 

4 

,  3 

SC  A L 

E  S  (  I  )  = 

1 

A.  • 

/ 

!  1  Vi 

-  '  O  r>  i 
i  *  J  ■ 

GO  TO  5 

4  CALL  S  I  M  G ( 1  ) 

RETURN 

5  CC'NTINUF 
NM  1  =  fj  -  1 

nn  IS  K=  1 ,  .01 1 
3  I  G  -  T  .  r 
00  11  I  =  K  ,  N 

ip-  ios ( i ) 

SIZt=AbS(A  (  I  P  ,  K  )  *  S  C  A  L  E  3  (  IP)  ) 
IF ( SIZE-GIG)  11,11,  1° 

1C  B  I  G  =  3  I  Z  l 
ID  X  P  I  V  ~  I 

11  CONTINUE 

I  F  (  B  I  G  )  1  3  ,  1  2  ,  1  3 

12  CALL  5  I M  G ( 2 ) 

RETURN! 

13  IH  I  GXP  I  V  -  <  )  1-,  IB  ,  14 

14  J  = I P  S ( K ) 

IPS ( X )  =  I  PS  <  I DXP IV) 

I  P  S  (  I  0  X  P  I  V  )  =  J 

15  K  P  =  I  P  S  (  K  ) 

PIVOT- A  (KP,K) 

K  P 1  =  4+ 1 

00  15  I  =  K  P  1  ,  N 
I  P  =  I  p  S  (  I  ) 

EM- -  A  (  I P  ,  X )  /PIVOT 
A  (  I  P  ,  X  )  -  -  E  1 
no  is  j  =  ^ i ,  \i 

14  A  (  I P  ,  J  )  =  A  (  I  P  ,  J  )  +  E  M *  A  (  K  P  ,  J  ) 
K  P  =  I  P  S  (  M  ) 

2r  CONTINUE 

I  f  (  A  (  k  p  ,  r ; )  )  1 9 ,  i  A  ,  i Q 

13  CALL  SING (2) 

10  RETURN 
END 


- 
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SUh  R  J'JT  I  ME  S  CL  V  E  (  N  ,  U  L  ,  3  ,  X  ) 

SOLUTION  DF  A  X  -  3  .  .  1J  L  IS  THE 
DECT  -IP  St)  PCI  -  '  i )F  A  . 

0  I  HE  NS  ICJN  JL  (  1  '  ^  ,  1  '  r  }  ,  3  (  I  n  ' 
CONN  )N  IPS 
I :  P  !  =  N+  1 
I P  = I DS (  1  ) 

X  {  1  )  =  B  {  IP) 

DO  2  1=2,0 
IP= I  PS  (  I  ) 

I  ,M  1=1-  1 

S  U  i"  ~  . 

DO  1  J  =  1  ,  I  M 1 
SU’’=SU:  +  UL.  (  I  P,  J  )  *X  (  J  ) 

X  (  I  )  =i3  (  I  P  )  -  SUM 
I P= I  0  S ( M ) 

X(  0  )  =X  (  N  )  /  JL  (IP,;,) 
on  4  I  3 ACK=2 , M 
I=NP1-I BACK 
I  P  =  I  P  S  (  I  ) 

I  P  I  =  I  +  1 

SUM  -  ' . r 

DO  3  J=IP1,U 

S U m  =  5  U  + ! J L I  I P  ,  J ) *X ( J ) 

X ( I  )  =  (  X(  I  ) - S UM ) / U  L (  IP,  I  ) 

P  E  T  u 
END 


,  X  (  1  0  )  ,  I  P  s  (  1  0  C  ) 
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0 


SU8RHUT  I  N'f  I N  V  E  K  T  (  M,  A,  Alr.V  ) 

THE  INVERSE  IF  A  IS  5  THE  hi)  IN  A I  MV 

1 1  VE  '!$  ION  A  (  1  '  '  ,  1  ~  ~  )  ,  MM  V  (  lr  ~  ,  1’*  0  ) 
CALL  DLCCNP  (  N,  a) 

UG  3  J  =  1  r  SI 
DO  1  I=1,M 
E  (  I  )=  ■">. 

I  F  (  I  .  E  C  .  J  )  A  (  1  )  -  1  .  ■ 

i  cn ;-i  t  [  i u  c 

CALL  S-LV£(M,A  ,  *3  ,  X  ) 

DO  2  r  —  1 »  j 
°  A  1NV ( I , J ) =  X (  I ) 

3  CONTINUE 
RETURN 
FND 


)  ,  X  (  1  "  '  ) 


SUE  ROUT  I 

4  _ 

S  1 

IG  (  IN 

MY  ) 

GOTO  (  1  , 

2  ) 

i  I 

;hy 

I 

up  i T , 

[  ] 

) 

RETURN 

-) 

WF I TE { 6, 

12 

) 

R  c  T  LJ  <  J 

1  L 

FORA'  \  T  (  1 

'!  A  T  R 

'  I  x  w 

ITH  Z.E-Q  ROW  IN 

DECO  NR 05 E  .  1  ) 

F  P  !  \  T  (  ' 

"s 

S  I  N  , 

iUL  A  R 

Y ATP  IX  IN  DE  CON 

P  0  S  c  .  Z  r.  ■  u  D  T  V  I D  F 

END 
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SUBROUTINE.  X  9  (  YM  ,  NN  ) 


CALCULATION  nF  Thr 
THE  GR'lD-P  TINTS  PE 


X-COOkDIf  ATES  COR0  E  SPUN  l)  I  NG 
THE  CANAL  PROBLEM  IN  THE 


TO 


C 


PLE  X 


-  P 


T fc  N  T  I  4L  PL 


BEEN  C ON  PUT  E  U  I  'PL  EH 


1.  THE  V-G  JORi)  I  J A  7  i 
M T  1 1  •  b  THE  i\  I  INc-PU  I  .N'T 


S  HAVE 

formula. 


D I  MRUS  I  ON  X (  I  1  ,41 )  , Y(  1 1  ,  ^  1  )  , YP ( 5 ) , YS ( 5 ) 
LLw  I  C  \  L  JJlfJJItJJ.*J  ’i  L ,  J  »  J  i?JJG 
CON MEN  X , Y 


V  1  =  M  —  1 

M  2  =  ? 

;M  "J  =  M  —  ; 

M4=m -4 
'45=  M  -  5 
NNN=  1 N +  I 
N=NN-1 
N  1  =  N  -  I 
f\’  ?  =  r 1  — 

N3  =  M-3 
N  4  =  N -4 
!\;  5  =  h<  -5 

DO  1  K=2,5 
J  =  N N  4-K 

YS  (  K  1  =  1"  .«Y  (  7t  J  )  -  72.  *Y  (  6  ,  J  )  +22  -3  .  *Y(  5  ,  J  )  -v?  '  .  *Y(  4,  J  ) 
1 +  45" . *Y ( 3 , J ) -36" . 4Y ( 2, J ) 

1  CONTINUE 
X(  I  ,NN  )  =  "  . 

XII,  N  )  -  -  (  .  -VS  (  2  )  -2A4.*yS(  2  )  +  lr,6  .*Y3  (  4  J  -  19.*YS(  5  ) 

11/432' 

X  (  1  ,  N  1  )  =  -  ( 1  2  4 .  *  Y  S  (  2  )  +  2  4  .  *Y  S  (  3  )  +4 .  *  Y  S  (  +  )  -  Y  S  (  5  )  )  / 

1 54"" . 

X  (  1  ,  l2)  =  -n/'6.*YS(2)+216.*YS(3)+12o.*YS(4)-9.*YS(5) 
1  )  /  l^-4"r  . 

X  (  1  ,  N  3  )  =  -  (  3  2  .  *  (  Y  S  (  2  )  +  Y  S  (  * )  )  +  3.  2  .  *Y  S  (  3  )  +  7 . 4  Y  S  (  5  )  )  / 

113  5'"  . 

on  3  ir=i,N4 
J  =  N  3- I  I 
DO  ?  K=l,4 

YS(K)=YS(A+I ) 

2  CONTINUE 

Y  S ( 5  )  =  1"  .  * Y (  7 , J ) -  7  2 . * Y ( 6 , J )  +  2  2  5  . * Y ( 5 , J ) -4  "  ^ . * Y ( 4 , J ) 
I  +  4  5  "  .  4  V  (  3  ,  J  )  -30'"  .  *  Y  (  2  f  J  ) 

X  (  1  ,  J  )  =  X  (  1 , J  +  4 ) - <  ?  2 . * ( YS (2) +  YS ( 4 )  ) +  7 . * ( YS l  1 ) + Y$  <  5 )  ) 
1  +  12 . *YS ( 3 )  )  /  !  3  5  1 . 

2  CONTINUE 

DO  7  I  I  -  1  ,  NM 
J  =  MNN- I  I 
J 'T Y  =  J  .  EQ.NN 


. 


■ 
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JN‘.  =  J  .  E-g.  N 
J  Y  1  =  J  .  L  0  .  •  i  1 

J  J  G  =  J  .  G  T  .  3  .  A  00 .  J  .  LT.  Ml 
J  J  3  =  J  .  f  0  .  3 
J  J  2  =  J  .  F  Q  .  ? 

J  J  1  =  J  .  c  G  .  1 

DO  4  to  =  2  , 5 


I  F  (  J  1  1  )  V  P 

( 

4  ) 

= 

i  ■ 

• 

YY  (  K 

*  ! 

t  • 

r~ 

)  - 

7  2  . 

Y  Y  (  4 

7  '  * 

4 

) 

4  2 

C 

»  y  Y  (  4  , 

N 

3  ) 

1 

-49r ,*y( < 

7 

f- 1  p 

) 

+  4 

«  *  Y 

(  4 

t 

Ml 

)  -3 

L  ^  •  Y 

Y  (  4 

, 

0  ) 

I  F  (  J  v  )  Y  P  ( 

K 

)  = 

~7 

1 

7  . 

Y  (  ro  , 

i) 

- 

1  5 

• 

Y  (  4  , 

41 

) 

4 

i: 

• 

YY (4,0 

P 

) 

1 

—  «  '•'/(  t\  , 

f  ! 

3  ) 

4 

1  5 

• 

*  Y  {  4 

r  ■  < 

)  - 

9  9 

C_  • 

Y(  Ft 

,  u 
<  *• 

) 

I  F ( J  Ml  )  Y  P 

( 

4  ) 

= 

2  4 

• 

Y  Y  (  K 

»  3 

) 

4  3 

5  .  Y 

Y  (  ix  , 

01 

) 

- 

•)  -** 
o 

• 

Y  (  K  ,  12 

) 

l 

+  ?  '  .  "  Y ( K  , 

; 

3  ) 

- 

1  • 

V  (  4  , 

14 

) 

4  Y 

(4, 

j\j5  ) 

1  F  {  J  J  G  )  Y  ? 

( 

4  ) 

= 

Y  ( 

4 

»  J  +  3 

)  + 

-> 

# 

(  Y  ( 

4  t  J  — 

2  ) 

- 

Y  (  4 

7 

J 

42  )  ) 

+  4  5  .  *  (  Y  (  K 

t 

J  + 

)  - 

y 

(  4  ,  J 

- 1 

) 

)  - 

Y  ( to 

t  J-  3 

) 

I  F  (  J  J  3  )  Y  P 

( 

4  ) 

- 

_  ■> 

v 

.  Y  Y  ( 

u  ' 

f 

9 

)  - 

3  5  . 

YY  (  4 

a 

7 

) 

4 

3^ 

♦ 

Y 

V ( 4, 4) 

1 

-3  o  .  *  Y  (  K  f 

)  + 

H 

Y 

(  K  t  4 

)  - 

Y 

(  4 

T  7) 

I  F  {  J  J  2  )  Y  P 

( 

4  } 

- 

-7 

7 

.  Y  Y  (  K  » 

2 

)  + 

l  5r 

.  -  'V  ( 

4  , 

) 

~  i 

'• 

.  Y  v  (  ,0  , 

3 

) 

1 

+  br . -y (  k  , 

)  - 

•j 

r 

'J  ♦ 

4 

Y  {  K  r 

6  ) 

+ 

2. 

Y  V  ( 

4,7) 

I  F  {  J  J }  )  Y  P 

( 

4  ) 

3  6 

-*■ 

.  YY  ( 

4  T 

2 

)  - 

4  5  9 

.  Yy  ( 

N  , 

-s 

) 

4  4 

.  Y  Y  (  4  , 

'+• 

) 

1 

L 

-  2  2  5  .  *  Y  (  i< 

f 

5  > 

+ 

7  1 

• 

y  Y  (  K 

»  5 

) 

- 1 

•  •' 

Y  (  K , 

7  ) 

CCJfJT  I  NlJE 

X  (  2  ,  J  )  =  X  ( 

1 

±. 

»  J 

) 

+  ( 

4  6  . * 

VP  ( 

2  ) 

-36 

4  .  y  Y 

P  ( 

) 

+  1 

6 

.  Y  Y  P  (  4 

) 

1 

-] 9. YYP  (  3 

) 

)  / 

4 

3  2 

°- 

C- 

• 

X  (  3  ,  J  )  =  X  ( 

1 

,  J 

) 

+  ( 

?  4  .  * 

Yp 

( 

2  ) 

+  24 

.  Y  Y  F 

(  3 

) 

4 

0-  . 

Y 

?(  4) 

1 

-YP { 5 ) )/5 

4, 

• 

X ( 4 , J ) =X ( 

»  J 

) 

+  ( 

r  6  .  * 

YP 

( 

2  ) 

+  21 

6 .  yy 

P  ( 

) 

+ 1 

/ 
( . 

6 

. Y VP ( 4 

) 

1 

i 

-  9  .  Y  y  p  (  5  ) 

)  / 1 

4 

/  '  4 

-f 

• 

X  (  5  ,  J  )  =  X  ( 

i 

,  J 

) 

+  ( 

3 

2  .  Y  (  Y  P 

( 

2  ) 

+  YP 

(4)  ) 

+  1 

• 

yt  v 

j-' 

( 

3 ) +7.  Y 

V 

P  (  5  ) 

l 

)/l?5". 

DO  6  4  =  6, 

K* 

’/ 

DO  5  1=1, 

4 

yp( r )  =  yp  ( 

I 

4  1 

) 

continue: 

I  F  (  J  43  I  Y  ? 

( 

5  ) 

= 

1  ■* 

• 

*  Y  (  K 

♦  N 

)  - 

72. 

Y  Y  (  K 

r  N 

4 

) 

4  2 

2 

5 

.  Y  Y  (  4  , 

'  1 

3  ) 

1 

-  4  9  r  .  YY  (  ;< 

7 

■j  p 

) 

+  4 

5 

y 

•  i 

{  4 

J 

N  1 

)  -3 

6'  .  Y 

Y  ( 

4 

, 

M  ) 

IMJDYPI 

’9 

)  = 

*7 

f 

“7 

(  • 

4 

Y  (  4  , 

"I  ) 

- 

1  5 

Y  (  4  , 

i  1 

•  i  1 

) 

4 

1  9 

• 

YY ( 4 , 0 

9 

) 

1 

-  5  .  *  Y  (  K  , 

\| 

3  ) 

4 

1  c 

i. 

• 

*  Y  (  K 

»N 

4 

)  - 

5*: 

'  • 

V  (  4  , 

M5 

) 

I  F  (  J  11  }  V  P 

( 

5  ) 

- 

2  4 

• 

Y  Y  (  K 

j  '  1 

) 

+■  3 

5  .  Y 

YU, 

Ml 

) 

- 

sr' 

« 

y: 

Y  (  4  ,  M  2  ) 

1 

4 3r .  -V ( K  , 

r 

3  ) 

- 

) 

3  • 

Y  (  K  , 

04 

) 

4Y 

(  4  , 

r  5 ) 

I  F  (  J  J  G  )  Y  P 

( 

5  ) 

: 

V  (  K 

,  J  +7 

)  + 

'  4 

•  7' 

(  V( 

K  ,  j- 

3  ) 

- 

Y  (  4 

t 

1 

vj 

+  2  )  ) 

1 

+  49.  -  ( Y {  < 

7 

J  + 

1  )  ~ 

Y 

(  4  ,  J 

-  1 

) 

)  - 

i  (  K 

,  J-3 

) 

I  f  (  J  J  3  )  Y  p 

( 

5  ) 

= 

4 

.  Y  Y  ( 

4  ? 

•y 

)  - 

*Y  (  to 

?  . 

) 

4 

•3  9 

• 

9- 

Y  (  4 , 4  ) 

\ 

- 3 r . *Y ( K , 

5 

)  + 

Q 

Y  (  K  ,  6 

)- 

Y  (  \ 

,  n 

I  F  (  J  J  2  )  Y  P 

( 

5  ) 

= 

-77 

.  Y  Y  ( 

4  i 

9 

i  + 

1  5  r 

.  *  Y  ( 

fx  t 

3 

) 

-1 

'  f 

**\ 

.  Y  Y  (  4  , 

4 

) 

1 

+  5r . *Y ( K  , 

3 

)  - 

1 

J  • 

p; 

Y  (  :< , 

6  ) 

4 

s  • 

YY( 

4,7) 

I F ( J J  1  ) YP 

{ 

5  ) 

- 

1  ' 

A 

.  Y  Y  ( 

4  i 

0 

)  - 

4  5  2 

.  yy  ( 

K  , 

4 

) 

44 

f 

.  Y  y  (  ,o  , 

V 

) 

1 

-225.4V ( k 

t 

3  ) 

f 

7  2 

• 

Y  Y  (  4 

i 

) 

_  1 

1 

V  (  4  , 

7  ) 

X (  K  ,  J )  =X  ( 

4 

-  4 

» 

J  ) 

+ 

(32. 

Y  ( 

Y 

p( 

7  )  + 

YP  (  4 

)  ) 

f 

7 

(  Y 

P(  1  ) 

1 

+YP ( 5 ) ) +1 

• 

Y 

?  ( 

3 

)  )  /  1 

i  c; 
J  S' 

• 
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6  CONTINUE 

7  CONTINUE 
C  E  T  U  7  N 
END 
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JUT  [ME  X5  Cl' 


!•  I U  V  F  R  I  C  A  L  INT 
FOa.  THE  C  ANAL 
COMPUTED 


G?.  AT  I  U  •)  F 
P  *  u  i  l  E  v' . 
US  I  UG  T H 


J  P  T  H  f  X~  C  G  U R  D I N  A  T fc  S 
THE  Y-CGUROIUA  TES  HAVE 
F  I  V  c  ~  i  .  1  !  FUk  .'•!  U  L  A  • 


0  I  N  F  'IS  H.JM  X  (  11  ,41  )  ,  Y  (  11 , 4  1  ) 
COMMON  X  ,  Y 

N :  _  -rs  __ 


N1=N-1 
,M2  =  x  -2 
M  3  =  N  -  3 


X 


T  H  r  F I K ST  R  0 W . 


X(  1  ,  iO)  =  ^. 

Y  s  :■■■  =  -  4  -  .  -  Y  (  2  ,  f .  )  A-  3  6  .  *  Y  (  3  ,  U  )  -  1  6  .  *  Y  (  4  ,  N  )  +  3  .  *  Y  i  6  ,  N  ) 

Y  S  C  =  -  4  8  .  Y  (  2  i  ’■!  1  )  +3  4  .  *Y  (  3,  Ml  )  -  1  6  .  *  Y  {  4  ,  11  )  +  3 . 4  Y  (  5  ,  Mil 
X  (  1  ,  I )  -  (  -  c  .  4  Y  S  3  +  Y  S  C  )  /  1  +  4  . 

X(  1  ,  -II  )=-(4.*Y  33+YSC)/  36. 

OU  l  J  =  1  ,  i? 

K=N 1 -J 

Y  S  A  =  Y  S  ft 

Y  S  b  =  Y  S  C 

YSC=  -4  8  .  *  Y  (  2  ,  X  )  +3  6  .  *Y  t  3  ,  K  )  - 1  6 .  *Y  (  <t  ,  K  )  +  3  .  *Y  (6,4) 

X( 1  ,X) =X (  1 , K +  ? ) - ( Y S A  +  4 . 4YSU  +  YSC)/36. 

1  C  n  N  T  r  N  U  E 

X  ALONG  THE  (\+l)»ST  COLUMN. 

YPF  =  -  4  c  .  *Y  (  2  ,  i)  +  3  6  .  *Y  {  2  ,  N  1  )  -1  6  .  *Y  (  2  ,  \  2  )  +  3  .  *Y  (  2  ,  i  l  3  ) 

Y P C  -  - 4 F  .  ~  Y  (  3  ,  N  )  +  36  .  *Y  (  3  ,  N  1  )  -  16  .  *Y  {  3  ,  m2  )  +  3  .  *Y  (  3  ,  %?  ) 

X  (  2  t M °  )  =  (  3  .  *  YPC-YPC  )  /  1  -+4  . 

X(  ?  ,  ']  :  )  =  (  4.  *  YPti  +  YPC  )  /3d. 

00  2  1=4, v ' 

Y  P  A  =  Y  P 

Y  P  3  =  Y  P  C 

YPC=  -4Y  .  *Y(  I  ,  ‘  )  +3  .3  .  *Y  (  I  ,  Ml  ) -lo.*Y<  I  ,  'T2  )  +3  .  *Y  (  I  ,  M  3  ) 

X  (  I  ,'!'')=<(  I  -  2  ,  N )  +  (  v  P  \  +  4  .  Y  y  P  6  +  Y  P  C  )  /  3  6  . 

2  CONTINUE 

X  ALONG  THE  N'TU  COLUMN. 

Y ( 2 , M3) 

Y  (  3  ,  M  3  ) 


Y  F«B  =  1  ^  .  *  v  {  2  ,  )  - 1  5 .  *  Y  (  2  ,  N  1  )  +  6  .  *  Y  (  2  ,  N  2  )  - 

YPC= 1C . *Y ( 3 , N ) -18 . *Y ( 3 , N 1 ) +6 . *Y ( 3 , M2 ) - 
X  (  2  ,  N  )  =  X  (  1  ,  M  )  +  (  3  .  Y P  ,3-  YPC  )  /  1  44  . 

X( 2  ,  N  )  =X (  1  , N  )  +  ( 4. *YPd+YPC) / 3  6 . 

00  3  1=4,  ^ 

Y  P  A  =  Y  P  3 
YPh=YPC 


»  .  I 
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C 


c 

c 


7 


YPC  =  1*'  .  *Y(  I  ,  M  )  -  18  .  -Y  (  I  ,fU  )  MS  .  Y {  I  ,  f;?  )  -Y  (  I  ,  N3  ) 

X  (  I  t  I  )  =  X  (  I  -  2  ,  ‘  )  +  (  Y  ?  A  +  4  .  * :  V  P  0  +  V  p  C)  /  3  o  . 

CONTINUE 

X  AL  JNG  C  1LU  'AS  N-i  TO  3  . 

00  5  L  -  1  ,  f  1 7 
J  =  f ;  -  L 
MM  -2 
Jl= J-l 
J?  =  JO 
J  3  =  J  f  2 

YP  b  =  V ( 2 , J " ) v 3 . * { Y { ? , J  3 ) - Y ( 2  ,  J  1  )  )  -  V ( 2 , J  7  ) 

YPC  =  /  (  '  ,  J  '  )  +■  d  .  *  (  Y  (  3  ,  J2  )  -Y  (  3  ,  J  1  )  )  -Y  (  3  ,  J  3  ) 

X(  ?  ,  J  )  =  X  {  1  ,  J  )  +  (  8  .  *  YP6-YPC  )  /  1M  . 

X(3,J)=X(1,J) 4{ 4. *YP8+YPC ) /3o. 

DO  4  I - 4  »  " 

Y  P  A  =  Y  P  rt 
YP3=YPC 

YPC  =  Y  (  I  ,  M  )  +  8  .  4  (  Y  (  I  ,  J2  )  -  Y  (  I  ,  J  I  )  )  - Y  (  I  t  J  3  ) 

X  (  r  ,  J  )  =  X  (  I  -  ?  ,  J  )  +  (  Y  p  A  +  4  .  Y  P  4  Y  :J  C  )  /  ?  7  . 

C  L  i  \  T  [  N  U  P 
COM  I'lUc 

X  AL  J  !G  Th5  2*00  C  'L'J'M. 

Y P L  =  - 1  •'  .  *Y  (  2 , 2  )  +  18  .  -  Yl  2 , 3  )  -6  .  :7y  (  2 , 4  )+Y  (  2 , 5  ) 

Y  P  C  =  - 1 .  *'  V  (  3 , 2  )  4  1 3  .  *  Y  (  7  f  3  )  -  o  .  ^  Y  (  3 , 4  )  +  Y  (  3 , 5  ) 

X(  2, 2 )  =X(  1  , ?  ) 4( 8 . * v p 4 - Y P C ) / 144 . 

X(  3, 3 )  =  X (  1 ,2  )  4(4. 4 Y P 2 4 Y ° C ) /3c. 

Dn  6  1=4,  1 7 
YPA= YPo 

Y  P  h  =  Y  °  C 

YPC  =  - 1  "  Y Y  (  [  ,  >  )  +  I*.  ,  *y  (  I  ,  3  )  -  3 .  ~Y  (  1,4  )  4 y  (  1,3) 

X  (  I  ,  2  )  =  X  (  I  -  2  ,  ?  )  +  (  Y  P  A  4  4 . 4  y  F  8  4  Y  P  C  )  /  3  4  . 

C u r  T I  MUG 

X  ALQMG  T f- - r  1  *  ST  COLUMN. 

YP3  =  48 . 4  Y  (  3  ,  2  )  -33  .  ^  (  ?  ,  3  )  4  1  &  .  *  Y  (  2 , 4  )  -  3  .  *Y  (  ?  ,  5  ) 
Y PC  =  48 . 4  Y  (  3,21-36.  * Y  (  3,3)416.  *  Y  (  3 , 4  )  -  5 .  * Y  (  7  ,  3  ) 
X  (  2 , 1  )  =X  (  1  ,  1  )  +  (  7  .  *YP  /PC  )  /  144  . 

X  (  3  ,  1  )  =  X  (  1  ,  1  )  4  (  4 . 4  Y  P  o  *  Y  P  C  )  /  3  o  . 

00  7  [=4,7" 

YP  -  =  YP  p 
YP  B  = /PC 

YPC=48  .  *  Y  (  I  , 2 ) -36 . *Y {  I  ,  3  )  +  1  6  .  *  Y  l  I  ,  4  )  -  3  .  *Y{  1,5) 

X(  I  ,  1  )  =X<  I  -2  ,  1 ) 4 ( YP444  .  XYP6  +  YPC  ) /3fc. 

CONTI N UP 
P  G  T  U  M 


. 

, 


